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ABSTRACT 


With  the  increase  in  size  and  complexity  of  software  component 
repositories,  the  need  for  an  easy  to  use  search  and  retrieval  process  becomes  a 
necessity.  Multilevel  filtering  shows  great  promise  as  a  quick  accurate  search 
algorithm.  This  approach  applies  a  series  of  filters  starting  with  high  recall,  low 
precision  syntactic  techniques,  moving  through  a  range  of  more  computationally 
expensive  high  precision  syntactic  filters. 

The  goal  of  this  thesis  is  to  develop  a  graphical  user  interface,  using 
multilevel  filtering,  to  make  searching  the  CAPS  component  repository  a  less 
tedious  task.  The  interface  will  make  the  retrieval  process  less  error  prone.  The 
user  would  not  need  to  be  an  expert  in  how  the  software  base  works  thus 
increasing  the  ease  of  use  and  productivity.  The  current  prototype  system  has  a 
limited  user  interface  capability.  This  research  will  add  a  graphical  user  interface 
for  both  retrieval  and  maintenance. 
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I.  INTRODUCTION 

As  the  size  and  complexity  of  the  software  base  increases  the  need  for  an  easy  to 
use  query  entry,  along  with  quick  and  accurate  search  algorithms,  becomes  a  necessity. 
The  goal  of  this  thesis  is  to  develop  a  graphical  user  interface  to  make  searching  the 
CAPS  software  base,  or  component  repository,  a  less  tedious  task.  It  will  use  profile 
filtering  and  signature  matching  as  proposed  in  [1]  Improving  Syntactic  Matching  For 
Multi-Level  Filtering.  The  current  prototype  system  has  a  limited  user  interface 
capability.  This  research  will  add  a  graphical  user  interface  for  the  system.  The  interface 
will  make  the  retrieval  process  less  error  prone.  The  user  would  not  need  to  be  an  expert 
in  how  the  software  base  works  thus  increasing  the  ease  of  use  and  productivity.  Search 
metrics  coiild  be  collected  to  aid  future  improvements  to  the  search  algorithms. 

A.  FORMS  OF  REUSE 

When  developing  a  software  project  many  forms  of  reuse  are  commonly 
practiced.  Most  often  they  are  in  the  form  of  libraries  some  are  include  with  the  compiler, 
or  purchased  separately  like  graphics,  static  and  engineering  packages.  Finding  specific 
modules  in  the  package  is  accomplished  using  a  simple  text  based  search  engine  and  a 
requirements  list.  This  can  be  adequate  for  well-understood  utilities  like  the 
transcendental  functions  supplied  with  the  compiler.  Searching  for  some  intricate 
engineering  functions,  where  lexical  descriptions  may  vary  widely,  can  be  very  time 
consuming.  Libraries  that  are  developed  in-house,  for  use  on  a  specific  project,  will  have 
descriptions  that  are  clear  and  concise  to  the  author  while  other  members  of  the  team  may 
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find  them  indistinct.  The  user  can  form  a  search  string  using  terms  that  are  familiar  to 
them  hut  not  get  a  match  on  a  module  that  would  suit  their  needs. 

On  large  projects,  common  tasks  could  benefit  from  reuse  if  the  source  code  could 
be  found  but  it  is  often  easier  to  rewrite  than  to  search  a  large  software  repository  for 
something  that  is  not  there  or  have  the  search  miss  the  component  that  is  sought. 

B.  CURRENT  SOFTWARE  DEVELOPMENT  PRACTICES 

As  the  size  and  complexity  of  software  projects  increase  and  budgets  decrease  the 

need  for  software  reuse  becomes  critical.  Software  development  project  managers  will 
specify  that  software  reuse  will  be  practiced  as  a  way  of  decreasing  the  cost  and 
increasing  the  reliability  of  the  software  to  be  developed  as  part  of  the  proposal  process. 
However,  if  reuse  was  not  part  of  the  development  process  in  the  past,  during  the  actual 
development  they  will  find  that  they  are  not  able  to  benefit  from  reuse.  Software 
developed  without  reuse  as  one  of  the  design  criteria  will  be  difficult  to  transform  into  a 
reusable  module  making  it  less  likely  to  be  reused  in  future  projects.  Those  with  reuse  as 
one  of  the  design  goals  will  be  ready  for  reuse  in  future  projects.  One  form  of  designing 
for  reuse  is  a  generic  module  that  can  be  used  in  a  variety  of  instances  without 
modification.  An  example  is  a  generic  sorting  routine  that  can  sort  any  standard  data  type, 
while  a  non-generic  routine  would  sort  one  data  type.  The  need  to  make  even  simple 
modifications  to  a  module  may  eliminate  it  from  being  reused  in  future  projects.  When 
modifications  are  required  to  reuse  a  module,  the  possibility  of  introducing  errors  is  very 
likely.  Assumptions  can  be  made  by  the  original  author  in  writing  the  module  that  are  not 
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known  or  understood  by  those  making  modifications,  thus  introducing  errors.  As  the 
module  evolves  over  time,  the  module  becomes  a  disaster  waiting  to  happen. 
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II.  BACKGROUND 


Some  previous  works  in  software  engineering  and  search  techniques  are  presented 
here  as  a  background  for  the  research  presented  in  this  thesis. 

A.  CAPS 

Computer  Aided  Prototyping  System  (CAPS)  automates  the  early  design  phases 
of  developing  embedded  systems  that  have  strict  real  time  constraints.  CAPS  represents  a 
working  environment  consisting  of  development  tools  that  help  systems  analysts  and 
programmers  to  automate  the  design  and  implementation  of  rapid  prototypes  for  hard  real 
time  embedded  systems  [2].  These  tools  include  an  execution  support  system;  syntax 
directed  editor,  graphical  editor,  and  automatic  constructors  for  scheduling  and  control 
code,  automated  integration  of  ADA  modules,  and  the  framework  for  the  inclusion  of 
components  from  a  software  base. 

Prototyping  in  CAPS  consists  of  creating  the  PSDL  description  of  the  system 
design.  This  is  accomplished  with  the  graphical  editor  [3],  used  to  create  the  PSDL 
skeleton,  and  the  syntax  directed  editor,  that  is  used  to  flesh  out  the  skeleton.  The  PSDL 
description  is  then  translated  into  an  ADA  package  that  is  a  driver  for  the  atomic 
operators.  A  static  scheduler  finds  a  schedule  for  the  time  critical  operators  and  produces 
an  ADA  package  that  contains  the  schedule  for  the  time  critical  operators  that  is 
represents  as  an  ADA  task.  The  dynamic  scheduler  produces  an  ADA  package  for  the 
non-time  critical  operators.  The  software  base  is  a  repository  for  reusable  components 
that  can  be  used  for  the  atomic  operators.  If  a  reusable  component  cannot  be  found  the 
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developer  either  writes  it  or  decomposes  it  in  an  effort  to  find  a  reusable  component. 
CAPS  will  compile  and  execute  the  prototype.  The  prototype  is  then  modified  in  response 
to  the  users’  input.  After  the  users  accept  the  prototypes  demonstrated  functionality  the 
developer  will  port  the  prototype  to  the  target  hardware  and  operating  system. 

There  are  two  places  in  CAPS  that  can  benefit  from  reuse,  the  construction  of  the 
atomic  ADA  operators  in  the  prototype  and  the  final  optimized  versions  that  will  make  up 
the  delivered  product. 

B.  PSDL 

The  Prototyping  Description  Language  (PSDL)  [4]  is  used  to  specify  the 
prototypes  in  CAPS.  This  language  has  data  flow  like  semantics  containing  operators  that 
communicate  via  data  streams.  PSDL  programs  have  two  kinds  of  objects,  abstract  data 
types  and  abstract  state  machines.  The  data  streams  carry  values  of  a  fixed  abstract  data 
type.  Formally,  the  PSDL  model  is  that  of  an  augmented  graph  G  =  (y,E,T(y),C(y)) 
where  V  is  the  set  of  vertices,  E  is  the  set  of  edges,  T (v)  is  the  maximum  execution  time 
for  each  vertex  v ,  and  C(v)  is  the  set  of  control  constraints  for  each  vertex  v .  Each 
vertex  is  an  operator  and  each  edge  is  a  data  stream. 

An  Operator  is  either  a  function  or  a  state  machine.  When  an  operator  fires,  it 
reads  the  input  data  stream  and  writes  zero  or  one  date  object  to  its  output  streams.  The 
output  depends  only  on  the  current  set  of  input  values.  For  state  machines,  the  output 
depends  on  the  current  set  of  input  values  and  a  finite  number  of  internal  state  variables. 
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Operators  are  either  atomic  of  composite.  Atomic  operators  can  not  be 
decomposed  any  further  and  are  implemented  in  a  programming  language.  Composite 
operators  are  constructed  from  PSDL  components  with  a  lower  level  of  abstractions.  This 
continues  until  the  atomic  operator  is  reached.  Figure  1  illustrates  the  decomposition  of 
the  PSDL  operator  in  to  two  atomic  operators. 


carries  a  sequence  of  data  values  from  the  produce  to  the  consumer.  There  are  two  types 
of  data  streams,  data  flow  streams  and  sampled  streams.  The  data  flow  stream  can  be 
though  of  as  a  FIFO  queue  where  data  values  are  neither  lost  nor  replicated.  A  sampled 
stream  can  be  thought  of  as  a  cell  that  contains  one  value  that  is  updated  as  the  producer 
generates  new  values. 
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The  PSDL  specification  for  a  component  contains  the  information  needed  for 
analyzing  and  finding  reusable  independent  objects  that  are  contained  in  the  software 
base.  A  PSDL  specification  is  independent  of  the  computer  language  that  is  used  to 
implement  a  component  making  it  ideal  for  query  and  tag  specification. 

C.  TEXT  SEARCH 

Text  queries  are  based  on  keyword  matching.  The  query  is  specified  as  a  set  of 
keywords.  The  software  base  is  searched  for  the  given  keywords.  Any  components  that 
match  are  returned  as  candidates  for  the  query.  For  a  software  base  with  a  large  number 
of  components,  if  the  user  includes  too  few  keywords  they  are  overwhelmed  by  the 
number  of  candidates.  If  they  use  too  many  keywords,  they  miss  the  component  because 
an  exact  match  is  not  foimd.  An  improvement  to  this  technique  is  to  use  a  faceted 
approach  [5]  where  keywords  are  selected  from  predefined  keywords  in  a  faceted  list. 

The  faceted  list  is  a  predefined  set  of  keywords  that  are  constructed  by  experts  and 
are  designed  to  best  describe  the  component.  This  list  must  be  continually  updated  as  new 
components  are  added  to  the  software  base.  To  facilitate  the  maintenance  of  the  software 
base  on  large  projects  a  full  time  librarian  is  required.  This  is  an  added  cost  for  the 
project.  The  fidelity  of  the  faceted  list  is  a  function  of  how  well  the  users  and  librarian 
associate  the  functionality  of  a  component  with  the  keywords  that  are  selected. 

D.  SYNTACTIC  MATCHING 

Syntactic  matching  uses  non-behavioral  component  information,  such  as  a 
keyword  list,  package  declaration  or  PSDL  specifications  [6].  If  a  query  component  has 


8 


the  same  interface  specification  as  one  from  the  software  base  then  the  components  may 
match.  Components  with  dissimilar  interface  specifications  will  not  match.  These 
components  can  be  eliminated  from  consideration  as  a  candidate.  This  method  can  be 
used  to  quickly  eliminate  candidates  from  the  search  that  can  not  be  a  match.  This  leads 
to  a  multi-level  filtering  [7]  approach  which  is  organized  as  a  series  of  increasingly 
stringent  filters  that  pass  only  eandidates  that  are  an  approximate  mateh  to  the  query. 

E.  PROFILE  FILTERING 

A  profile  [6]  is  a  sequence  of  numbers  that  describes  how  the  types^  associated 
with  an  operation  are  organized.  For  a  query  to  match  a  component  in  the  software  base 
they  must  have  matching  profiles.  The  profile  of  an  operation  is  a  sequence  [6]  of 
integers,  defined  as  follows: 

1 .  The  first  integer  is  the  total  number  of  occurrences  of  types. 

2.  If  the  total  number  of  type  groups,  N,  is  greater  than  0,  then  the  second  to 
(1  +  N)"’  integers  are  the  eardinalities  of  the  type  groups,  in  descending  order. 

3.  The  (2  +  A^)'*  integer  is  the  cardinality  of  the  unrelated  sort  group. 

4.  The  (3  + A/’)'*  integer  is: 

0  if  the  value  type  is  different  from  any  of  the  argument  types;  and 
1  if  the  value  type  belongs  to  some  type  group. 


'  Note  that  the  dissertation  used  the  words  sort  and  type  interchangeably.  For  clarity,  only 
type  will  be  used. 
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By  calculating,  a  profile  for  each  component  in  the  software  base,  like 
components  can  be  placed  into  a  common  partition  [6].  When  searching  for  a  query  it  is 
only  necessary  to  search  the  partition  that  contains  components  with  profiles  that  match 
the  queries  profile.  All  components  in  other  partitions  have  been  eliminated  as  candidates. 
This  is  a  fast  process  that  is  well  suited  for  the  early  stages  of  multi-level  filtering  where 
low  precision  is  acceptable  and  the  main  goal  is  to  prune  the  number  of  candidates  for 
latter  high  precision  high  cost  filters. 

Improvements  to  increase  the  resolution  of  profile  filtering  have  been  suggested 
[1]  such  as  adding  more  properties  to  the  profile  using  properties  that  can  be  measured 
with  more  possible  values.  By  increasing  the  resolution,  we  also  increase  the  number  of 
profiles,  thus  reducing  the  number  of  candidates  that  pass  this  lever  of  filtering. 

F.  SIGNATURE  MATCfflNG 

The  signature  of  a  module  [8]  [6]  is  a  triple  (5,  N,  X)  where  S  is  the  set  of  types^ 
that  appear  in  the  operation  signature  in  X,  N  is  the  set  of  operation  names  that  appear  in 
the  operation  signature  in  X,  and  X  is  a  set  of  operation  signatures.  An  operation 
signature  is  a  triple  containing  an  operation  name,  a  sequence  of  input  types,  and  an 
output  type.  This  definition  assumes  each  operation  signature  has  exactly  one  output. 

A  signature  match  exits  if  there  is  a  mapping  between  the  query  operations  and 
types  to  the  candidate  operations  and  types.  A  partial  signature  map  [6]  is  one  that  does 


2  Note  that  the  class  notes  use  the  term  sort  instead  of  type.  In  the  interest  of  continuity 
sort  was  changed  to  type. 
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not  map  all  of  the  queries  operations.  A  full  signature  map  successfully  maps  all  of  the 
operations. 

G.  SOFTWARE  BASE 

The  software  base  is  the  repository  for  the  reusable  components  in  CAPS.  The 
software  base  must  be  structured  [9]  so  that  it  will  support  the  automatic  retrieval  of 
components  based  on  their  specifications.  The  architecture  must  support  syntactic 
matching  and  handle  variable  numbers  of  type  attributes. 
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III.  DESIGN  AND  CONCEPTS 


The  design  goal  is  to  have  a  Graphical  User  Interface  to  the  program  proposed  and 
written  in  [1]  Improving  Syntactic  Matching  For  Multi-Level  Filtering  that  will  handle 
interactions  between  the  user  and  the  software  base.  This  will  include  searches  as  well  as 
maintenance  of  the  software  base. 

A.  MULTI-LEVEL  FILTERING  IMPLEMENTATION 

Multi-Level  Filtering  was  implemented  [1]  in  ADA  using  the  foreach  extension 
that  was  add,  as  a  preprocessor,  by  the  Naval  Postgraduate  School  Computer  Science 
Department.  It  was  assumed  that  all  queries  and  component  specifications  would  be 
written  in  PSDL.  Extensive  use  of  the  CAPS  PSDL  library  was  used  in  handling  the 
query  as  well  as  the  software  base  component.  All  components  will  be  stored  in  separate 
directories  in  the  software  base.  A  header  file  will  be  used  to  identify  [1]  all  of  the 
components  that  comprise  the  software  base.  Input  to  the  filtering  program  was  through  a 
file  that  contains  the  query.  The  standard  output  was  used  to  display  the  results.  This 
placed  restrictions  on  the  implementation  of  the  user  interface  that  uses  C-H-,  the  XI 1R6 
libraries,  and  the  Motif  graphs  libraries  in  how  the  input  and  output  are  preformed.  One 
goal  was  to  minimize  the  modifications  to  the  existing  ADA  code  so  input  and  output 
will  be  buffered  to  a  temporary  disk  file.  The  internal  representation  of  the  software  base 
components  was  recalculated  each  time  that  filtering  was  done.  A  modification  was  made 
to  split  the  program  into  two  distinct  parts  maintenance,  which  saves  the  initialized  data 
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structures,  and  searching,  which  reinitializes  the  data  structure  from  the  those  saved 


during  maintenance. 


B.  SOFTWARE  BASE  ORGANIZATION 

The  software  base  is  organized  into  component  modules.  All  files  for  a 
component  will  reside  in  a  separate  component  directory.  No  other  directories  are  allowed 
in  the  software  base.  Each  component  will  have  a  PSDL  specification  irrespective  of  the 
language  of  implementation.  The  PSDL  specifications  will  be  used  in  the  filtering 
process. 


sb_header.dat 


componentJd_niap.dat 


haase_diagram.dat 


profite_lookup_tabl8.dat 


Figure  2  Software  Base  Directory  Structure 

Figure  2  is  an  example  of  the  structure  of  the  software  beise.  Set,  Tan,  and 
Sequence  are  component  directories  in  the  software  base.  The  header  file,  sb_header.dat, 
is  used  to  identify  all  of  the  components  that  comprise  the  software  base.  An  example  is 
shown  in  Figure  3. 
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sb  header.dat 


Figure  3:  Software  Base  Header  Example 
Each  entry  contains  a  unique  ID  [1]  followed  by  the  component  directory  name. 
The  ID  will  be  used  to  identify  the  component  in  the  data  structure  that  internally 
represents  the  software  base.  The  ID  saves  space  and  is  easier  to  manipulate  then  a 
character  based  component  name.  In  the  original  implementation,  the  component 
directories  could  be  spread  across  networked  file  systems.  In  the  interest  of 
maintainability,  the  software  base  will  be  restricted  to  a  single  file  system  that  can  be 
exported  to  other  machines.  The  pre-computed  data  structures  for  the  internal 
representations  of  the  software  base  components  are  stored  in  files  that  reside  in  the 
software  base  directory. 


C.  DIALOG  INTERFACE  CONNECTIONS 

The  graphical  user  interface  to  the  software  base  was  split  into  two  dialogs.  One 
dialog  will  be  used  for  maintenance,  allowing  the  addition  of  new  components  and  the 
initialization  of  the  data  structures.  The  other  dialog  will  search  for  components  in  the 
software  base. 

Two  conventions  were  implemented  for  starting  the  dialogs,  one  in  the  Motif 
tradition  that  is  non-blocking  and  uses  a  callback  routine  to  pass  results  on  completion. 
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The  other  a  normal  “C++”  routine  blocks  until  the  user  is  finished.  The  subroutine  returns 
a  pointer  to  the  results. 

void  SearchDialog (Widget  parent,  XtCallbackProc  callback); 
char*  ModalSearchDialog (Widget  parent); 
void  MaintenanceDialog (Widget  parent); 

void  ModalMaintenancePialog (Widget  parent); _ 

Figure  4:  GUI  Interface  Routines 

Figure  4  shows  the  dialog  subroutine  calls  where  parent  is  the  widget  that  the 
dialog  will  be  display  in  and  callback  is  the  routine  that  will  be  called  upon  completion. 
The  modal  versions  are  blocking.  A  modeless  version  of  the  maintenance  dialog  was 
included  for  completeness. 

D.  TEST  PROGRAM 

A  simple  test  program  was  written  to  test  the  graphical  interface.  The  only 
functionality  was  to  initiate  the  maintenance  or  search  dialog  and  display  the  results. 


s 

m 

fil 

C^S  Sol^Mfe  Bast  Search  + 

Search  |  ;  Maintenance  |  ^  ModSeareh  [  ModMaliketiance  [  Quit  | 

Figure  5:  Test  Display 

Pressing  one  of  the  buttons  (Figure  5)  will  initiate  a  call  to  the  appropriate  dialog 
entry  routine.  The  output  is  displayed  on  the  standard  output. 

E.  SYNTAX  DIRECTED  EDITOR 

At  the  time  that  this  thesis  was  written  the  CAPS  Syntax  Directed  Editor  (SDE) 
was  xinavailable.  Creating  a  true  SDE  was  beyond  the  scope  of  this  thesis.  A  simple  editor 
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was  created  for  testing  purposes  to  be  used  in  making  changes  to  the  PSDL  query/spec. 
The  functionality  that  is  supplied  by  this  editor  will  be  replaced  by  the  CAPS  Syntax 
Directed  Editor.  The  interface  to  the  CAPS  SDE  was  unknown  at  the  time  that  this  editor 
was  written  so  some  modifications  to  other  routines  may  be  necessary.  The  subroutine 
SDE.C  can  be  removed  or  used  as  the  connection  point  for  the  CAPS  SDE. 

void  SDE (Widget  parent,  char  **filename,  char  **string) ; 

Figure  6:  SD  Editor  Calling  Convention 

Figure  6  is  an  example  of  the  SDE  subroutine  entry  point.  Parent  is  the  widget 
that  the  dialog  will  be  display  in.  Filename  is  a  pointer  to  the  user-selected  file  name  for 
the  query.  If  the  user  canceled  the  editor  or  did  not  select  a  file  name,  then  file  name  will 
be  set  to  the  NULL  pointer.  String  is  a  pointer  to  the  PSDL  query  that  will  be  used  in 
filtering.  If  the  user  canceled  the  editor  or  did  not  enter  a  query  then  the  string  will  be  set 
to  the  NULL  pointer. 
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Figure  7:  SD  Editor 

Figure  7  shows  the  simple  SD  Editor  display.  The  user  can  type  the  query  directly 
into  the  edit  window.  Through  the  file  menu  (Figure  8)  an  existing  query  can  be  opened, 
saved,  or  saved  under  a  different  file  name.  The  close  menu  entry  will  close  the  SD  Editor 
and  exit  will  exit  the  program.  Simple  editing  capabilities  are  implemented  through  the 
edit  menu  (Figure  9).  Cut  copies  the  selected  text  to  the  buffer  then  deletes  the  selection. 
Copy  put  the  selected  text  in  the  buffer.  Past  copies  the  buffer  in  to  the  current  cursor 
location. 
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Open 

Ctrl+0 

Edit 

Ctrl+E 

S^ave 

Ctrl+S 

SaveM 

Ctrl+A 

Close 

Ctrl+W 

Exit 

arl+Q 

Cut 

CtrH-X 

Copy 

Ctrh-C 

j^ste 

Ctrl+V 

Figure  9:  Edit  Menu 


Figure  8:  File  Menu 


F.  SEARCH  DISPLAY 

The  filtering  process  has  three  distinct  parts,  the  PSDL  query,  profile  filtering 
results,  and  the  signature  matching  results.  The  dialog  is  partitioned  into  these  three  areas 
with  their  associated  input.  Figure  10  illustrates  the  search  dialog  box  and  its  components. 
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Figure  10  Search  Dialog 
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The  query  file  name  input  box  is  placed  above  the  query  display.  A  file  name  can 
be  entered;  when  the  return  key  is  pressed  the  file  is  opened  and  displayed  in  the  query 
window.  The  query  menu,  Figure  11,.  gives  the  user  the  means  to  enter  a  new  query,  open 
an  existing  query,  edit  the  current  one,  or  save  the  current  query.  The  search  can  be 
started  by  pressing  the  search  button  or  through  the  search  menu.  Figure  12  illustrates  the 
search  menu.  Usage  information  is  provided  through  a  help  menu  (Figure  13). 


Open 

CM+0 

Edit 

ari+E" 

Swe 

CtrN-S; 

''smiM" 

Ctri^A^ 

Close 

E>dt 

Ctrh-d' 

^art  Ctritll 


Figure  12:  Search  Menu 


Maintenance 

Search 

Version 


Figure  13:  Help  Menu 


Figure  11:  Query  Menu 

The  minimum  profile  ranking  that  must  be  exceeded  to  pass  filtering  is  displayed 
above  the  profile  filtering  results.  This  window  is  where  the  user  will  input  the  desired 
value.  The  user  may  adjust  the  value  up  or  down  to  tailor  the  filtering  process  to  increase 
or  decrease  the  number  of  components  that  pass  profile  filtering. 
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Found  34  components  in  26  partitions. 
There  are  34  possible  candidates. 
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Figure  14:  Profile  Filtering  Results  Example 


Like  the  profile  display,  the  signature  match  has  both  a  rank  and  results  window. 


The  results  window  is  also  where  the  user  will  select  the  component  that  bests  matches 


their  needs.  Figure  15  illustrates  the  results  of  a  query.  Filtering  found  two  candidates 


with  a  rank  greater  than  or  equal  to  that  set  by  the  user,  one  in  this  case.  The  component 


name  is  tan  with  component  ID  3001.  To  select  this  component  the  user  will  press  the 


button  next  to  the  name.  To  view  the  other  candidates  the  user  can  scroll  down.  If  nether 


of  the  candidates  meet  the  users  needs  they  can  reduce  the  rank  and  search  again.  The 


operator  map  is  shown  in  Figure  16. 
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Conpcaient  ID:  3001 


Profile  Rank:  1.00  Wumber  of  signature  match,  solutions;  1 


Figure  15:  Search  Results  Example 

As  the  multilevel  filtering  technology  evolves  and  levels  are  added,  the  modular 
design  of  the  search  dialog  will  allow  it  to  encompass  them  by  adding  new  windows  for 
input  and  output. 
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Signature  Rank:  1.00 
Semantic  Rank:  unknown 
Valid,  Not  Expanded 
Op  Map:  { [Extent_Of , 

Extent_Of ] , 

[ Is_Empty, 

Is_Empty] , 
[Is_A_Member , 
Is_A_Member] , 

[Clear, 

Clear] , 

( Is_Equal, 

Is_Equal] , 

[ Is_A_Subset, 
Is_A_Subset] , 

[ Is_A_Proper_Subset, 
Is_A_Proper_Subset] , 
[Copy, 

Copy] , 

[Add, 

Add]  , 

[ Remove , 

Remove ] , 

[Union, 

Union] , 

[ Intersection, 
Intersection] , 
[Difference, 
Difference];  } 

Type  Map:  {[set, 
set] , 

[item, 
item] ;  } 

Branches:  [] 


Figure  16:  Example  Signature  Matching  Results 


G.  PROGRESS  DISPLAY 

While  the  filtering  process  is  running  a  progress  display  keep  the  user  informed  as 
to  what  is  happening.  Figure  17  is  an  example  of  the  search  progress. 
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Figure  17:  Search  Progress  Display 


H.  MAINTENANCE  DISPLAY 

Maintenance  is  the  addition  of  components  to  the  software  base  or  the 


initialization  of  the  multilevel  filtering  representation  of  the  components  in  the  software 


base.  The  maintenance  dialog  aids  the  librarian  in  keeping  the  software  base  current. 


Figure  18  shows  the  maintenance  dialog. 
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CAPS  Software  Base  Maintenance 
PSDLSpec:  [^/hocw/Treg/irhec A g/ gb/ve toraqe/ vg t orage . pc 6S[ 


OPERATOR  Free 
SPECIFICATICW 
GENERIC 

Item  i  PRIVATEJEYPB, 

Pointer  :  ACCESS^TYPE, 
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Figure  18:  Maintenance  Dialog 

The  librarian  enters  a  new  PSDL  spec  with  the  SD  Editor  or  opens  one  that  was 
previously  created.  Figure  19  show  the  spec  menu.  New  opens  the  SD  Editor  for  input  of 
a  new  PSDL  specification.  Open  starts  a  file  dialog  to  open  an  existing  PSDL 
specification.  Edit  opens  the  current  PSDL  specification  in  the  SD  Editor.  After  the  user 
has  finished  with  the  PSDL  spec,  it  will  be  displayed  in  the  top  window.  An  alternate  way 
of  opening  the  PSDL  file  is  to  enter  its  name  in  the  PSDL  file  window;  a  return  is  needed 
update  the  display. 
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New 

Ctrl+N  1 

Add  Component  File 

Ctri+F 
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Ctrt+0 

Clear  Component  Files: 

Ctrl+C 

Edit 

Ctri+E 

C[evAII  Files 

Ctrl+L 

Save 

Save  As 

Ctri+S 

Ctrl+A 

Figure  20:  Component  Menu 

Close 

■.SfiSii 

Ctrt+W 

Ctri+Q 

Figure  19:  Spec  Menu 

The  directory  that  the  component  will  be  stored  in  will  be  named  after  the  PSDL 
specification  file  name.  This  will  be  created  during  the  initialization  process.  The 
component  files  include  any  file  that  is  needed  to  implement  the  component  or  document 
its  function.  These  files  will  be  copied  to  the  component  directory  during  initialization. 
Figure  20  is  the  component  menu.  Included  in  the  menu  are  the  following  items:  Add 
component  file  adds  a  file  to  the  component  list.  Clear  component  files,  removes  all  files 
from  the  component  list.  Clear  all  files  clears  both  the  PSDL  spec  and  component  list. 

There  are  two  steps  to  the  initialization  process.  First  the  component  directory  is 
created  and  the  components  files  are  copied  into  it.  Then  the  header  file  is  created  using 
all  of  the  directories  found  in  the  software  base.  The  header  file  is  used  as  input  to  the 
initialization  of  the  data  structures.  Figure  21  is  the  initialization  menu.  Initialize 
directory  sets  up  the  component  directory  but  does  not  initialize  the  data  structures. 
Initialize  software  base  will  initialize  the  component  directory,  if  needed,  and  the  data 
structures.  User  information  is  provided  through  the  help  menu  (Figure  22). 
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[nitilize  Software  Base 

Ctrl+I 

Maintenance 

Initiiize  Directory 

Ctrl+D 

Search 

Version 


Figure  21:  Init  Menu 

Figure  22:  Help  Menu 

The  following  steps  illustrates  adding  a  component  to  the  software  base: 

1 .  Setup  the  PSDL  Spec. 

2.  Add  component  implementation  files. 

3 .  Initialize  the  component  directory. 

4.  Initialize  the  data  structures. 

Note  that  steps  one  though  three  can  be  repeated  for  multiple  components  to  set 
up  the  directories  before  initializing  the  data  structures. 

While  initialization  is  running  a  progress  display  keeps  the  user  informed  as  to 
what  is  happening.  Figure  23  is  an  example  of  the  initialization  progress  display. 
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Figure  23:  Maintenance  Progress  Display 
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IV.  CONCLUSIONS  AND  FUTURE  RESEARCH 


A.  ACCOMPLISHMENTS 

The  goal  of  software  reuse  will  only  be  attained  if  the  tools  that  insulate  the  user 
from  the  tedious  job  of  finding  suitable  components  are  created.  The  tools  must  be  easy 
to  use,  accurate,  fast,  and  display  results  in  an  ordered  manner.  Tools  are  also  needed  for 
the  addition  of  components  to  the  repository.  If  the  task  of  adding  a  component  is  to 
complex  developers  will  not  contribute  to  the  repository.  The  Graphical  User  Interface,  to 
Multilevel  Filtering,  developed  in  this  thesis  will  aid  the  user  in  finding  the  reusable 
components  that  they  are  looking  for  and  making  additional  components  available  for 
others  to  use. 

The  Following  Tools,  miming  on  the  Linux  operating  system,  have  been  used  to 
implement  the  Graphical  User  Interface. 

•  Linux  version  2.0.27 

•  Gnu  C-H-  compiler  version 

•  GNAT  ADA  95  version 

•  GNU  Source-Level  Debugger 

•  Data  Display  Debugger 

•  XFree86XllR6 

•  MetroLinks  Motif  version  2.0 
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All  of  the  development  tools  are  available  on  the  Internet  for  a  verity  of  development 
platforms,  with  the  exception  of  MetroLinks  Motif  During  the  development  of  the 
interface,  a  suitable  Motif  replacement  was  unavailable. 

B.  FUTURE  RESEARCH 

As  multilevel  filtering  evolves  and  grows,  the  additions  should  be  incorporated 
into  the  underling  search  program.  The  method  of  passing  data  between  the  C-H-  and 
ADA  code  needs  to  be  refined. 
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APPENDIX  A  C++  GUI  SOURCE  CODE 


Source  code  for  the  C++  for  the  Graphical  User  Interface. 


A.  CALLBACKS.H 


/* 

*  $Id:  Callbacks. h,v  1.3  1998/01/16  00:17:34  greg  Exp  $ 

* 

*  Callbacks. h  —  Software  Base  Search  Interface 

* 

*  Header  file  for  the  common  callbacks. 

* 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 


/★ 

*  FILEDLG_DATA  structure  is  used  to  pass  data  to  the  file  callback. 

★ 

*  parent:  widget  to  use  a  parent  for  dialog  construction. 

*  fname_text:  text  widget  for  file  name  display. 

*  text;  text  widget  for  query/spec  display. 

*/ 

struct  FILEDLG_DATA 

{ 

Widget  parent; 

Widget  fname_text; 

Widget  text; 

}; 


void 

genericCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) 
void 

newCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) ; 


void 

editCB (Widget  widget, 

XtPointer  client_data, 
XtPointer  call_data) ; 


void 

openCB (Widget  widget, 

XtPointer  client_data, 
XtPointer  call  data) ; 


void 

saveCB (Widget  widget, 

XtPointer  client^data, 
XtPointer  call_data) ; 

void 

saveasCB (Widget  widget, 

XtPointer  client_data, 
XtPointer  call  data) ; 


void 

textchangedCB (Widget  widget, 
XtPointer  client_data. 
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XtPointer  call  data) ; 


B.  CALLBACKS.C 


/* 

*  $Id:  Callbacks .C, V  1.5  1998/01/25  22:49:08  greg  Exp  $ 

'*■ 

*  Callbacks. C  --  Software  Base  Search  Interface 

■k 

*  Source  code  that  implements  the  functionality  of  the  file  menu,  in  the  search 

*  and  maintenance  dialogs,  through  the  use  of  callback  routines. 

*• 

*  Entry  points:  newCB,  editCB,  openCB,  saveCB,  saveasC,  textchangedCB 

* 

*  Naval  Postgraduate  School 

*  January  11,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 
*• 

*/ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <iostream.h> 


#include  <Xm/Xm.h> 
#include  <Xm/Text.h> 
#include  <Xm/FileSB .h> 


#include  "Gui.h” 

#include  "Utils. h” 
#include  "SDE.h" 

#include  "PromptDialog.h" 
#include  "Callbacks . h" 


/* 

*  Declarations  for  local  functions. 

V 


static  void 

fileokCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) / 
static  void 

filecancelCB (Widget  widget,  XtPointer  client_data,  XtPointer  call__data) ; 
static  void 

saveasokCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

edit file (FILEDLG_DATA  *  data,  char  **filename,  char  **string); 

/* 

*  Global  storage  for  the  user  selected  directory. 

*/ 

static  char  *save_directory  -  NULL; 

/* 

*  Generic  callback  assumes  client_data  has  a  text  string.  This  callback  is  for 

*  testing  only 
*/ 


void 

genericCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) 

{ 

if  (client_data  NULL) 

{ 

print f ("Generic  callback  [%s]\n",  (char  *) client_data) ; 

} 

} 

/* 


36 


*  open  file  dialog  callback.  Displays  a  file  selection  dialog  to  the  user. 

*  The  data  for  this  callback  is  passed  through  the  client  data  as  a  pointer 

*  to  a  FILEDLG_DATA  structure.  User  input  is  returned  through  the  fileokCB 

*  callback.  The  selected  file  will  be  opened  and  loaded  into  the  query/spec 

*  text  widget. 

*/ 

void 

openCB {Widget  widget,  XtPointer  client_data,  XtPointer  call_data) 

{ 

FILEDLG_DATA  *data  =  ( FILEDLG_DATA  *)  client_data; 
static  FILEDLG_DATA  ok_data; 

Widget  fsdialog; 

Arg  args[20]; 

Cardinal  n; 

XmString  title  =  XmStringCreateSimple ( "Open  Query  Specification"); 

XmString  dirrtiask  =  XmStringCreateSimple  ("*  ,psdl")  ; 

/* 

*  Create  the  file  selection  dialog  using  a  directory  mask  so  that  the  user 

*  only  sees 
*/ 


n  =  0; 

SETARG (args [n] ,  XmNdirMask,  dirmask,  n) ; 

SETARG (args [n] ,  XmNdialogTitle,  title,  n) ; 

fsdialog  =  XmCreateFileSelectionDialog (data->parent,  "sbsdialog",  args,  n) ; 
if  (save__directory  !=  NULL) 

Set_Res__String ( fsdialog,  XmNdirectory,  save_directory) ; 

XmStringFree (title) ; 

XmStringFree (dirmask) ; 

/* 

*  Change  the  parent  widget  to  the  file  selection  dialog  so  we  can  close  it 

*  and  not  its  parent.  The  rest  of  the  data  is  pasted  through. 

*/ 

ok_data .parent  =  fsdialog; 

ok_data .  fname_text  ==  data~>fname_text; 

ok_data.text  =  data->text; 

/* 

*  Add  the  callbacks  to  the  OK  and  cancel  buttons. 

*/ 

XtAddCallback (fsdialog,  XmNokCallback, 

(XtCallbackProc)  fileokCB, 

(XtPointer)  &  ok_data) ; 

XtAddCallback ( fsdialog,  XmNcancelCallback, 

(XtCallbackProc)  filecancelCB, 

(XtPointer)  fsdialog) ; 

XtManageChild( fsdialog) ; 

} 

/* 

*  Save  file  as  callback.  Displays  a  file  selection  dialog  to  the  user.  The 

*  data  for  this  callback  is  passed  through  the  client  data  as  a  pointer  to  a 

*  FILEDLG_DATA  structure.  User  input  is  returned  through  the  saveasokCB 

*  callback.  The  query/spec  text  will  be  saved  into  the  selected  file. 

*/ 

void 

saveasCB (Widget  widget,  XtPointer  client_data,  XtPointer  call__data) 

{ 

FILEDLG_DATA  *data  =  (FILEDLG^DATA  *)  client_data; 
static  FILEDLG_DATA  ok_data; 

Widget  fsdialog; 

Arg  args [20]; 

Cardinal  n; 


37 


XmString  title  =  XmStringCreateSimple ( "Save  Query  Specification"); 

XmString  dirmask  =  XmStringCreateSimple ("* .psdl") ; 

/* 

*  Create  the  file  selection  dialog  using  a  directory  mask  so  that  the  user 

*  only  sees  the  PSDL  specification  files. 

*/ 


n  =  0; 

SETARG (args [n] ,  XmNdirMask,  dirmask,  n) ; 

SETARG (args [n] ,  XmNdialogTitle,  title,  n) ; 

fsdialog  =  XmCreateFileSelectionDialog (data->parent,  "Save  Query  Specification  as:", 
args,  n) ; 

XmStringFree (title) ; 

XmStringFree (dirmask) ; 

/* 

*  Change  the  parent  widget  to  the  file  selection  dialog  so  we  can  close  it 

*  and  not  its  parent.  The  rest  of  the  data  is  pasted  through. 

*/ 

ok_data . parent  =  fsdialog; 

ok_data . fname_text  =  data->fname_text; 

ok_data.text  =  data“>text; 

XtAddCallback ( fsdialog,  XmNokCallback, 

(XtCallbackProc)  saveasokCB, 

(XtPointer)  &  ok_data) ; 

XtAddCallback (fsdialog,  XmNcancelCallback, 

(XtCallbackProc)  filecancelCB, 

(XtPointer)  fsdialog); 

XtManageChild (fsdialog) ; 


/* 

*  Save  file  callback.  The  data  for  this  callback  is  passed  through  the  client 

*  data  as  a  pointer  to  a  FILEDLG_DATA  structure.  The  query/spec  text  will  be 

*  saved  into  the  currently  open  file.  If  a  file  has  not  been  opened  the  save 

*  as  callback  is  used  to  solicit  a  file  name  from  the  user. 

*/ 

void 

saveCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) 

{ 

FILEDLG_DATA  *data  -  (FILEDLG_DATA  *)  client_data; 
char  ^string  =  XmTextGetString (data->text) ; 
char  *filename  =  gettext (data“>fname_text) ; 

if  (filename  -=  NULL) 

{ 

saveasCB (widget,  client_data,  call_data) ; 

} 

else 

{ 

if  (string  !-  NULL) 

{ 

savetext (widget,  filename,  string); 

XtFree (string) ; 

} 

XtFree (filename) ; 

} 


/* 

*  The  user  changed  the  filename  in  the  text  window.  This  is  activated  when  the 

*  user  types  a  carriage  return  and  the  text  window  has  the  focus.  The  data  for 

*  this  callback  is  passed  through  the  client  data  as  a  pointer  to  a 

*  FILEDLG_DATA  structure.  The  specified  file  will  be  opened  and  loaded  into 

*  the  query/spec  text  widget. 
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void 

textchangedCB (Widget  widget,  XtPointer  client_data,  XtPointer  call  data) 

{ 

FILEDLG_DATA  *data  =  (FILEDLG_DATA  *)  client_data; 
char  ^string; 

char  ^filename  =  gettext (data->fname_text) ; 

/* 

*  If  user  entered  a  file  name  try  to  display  it  in  the  text  window.  If  the 

*  user  cleared  the  file  name  clear  the  text  window. 

*/ 

if  (filename  !=  NULL) 

{ 

if  (LoadFile (filename,  &string)  !=  -1  &&  string  !=  NULL) 

{ 

XmTextSetString (data“>text,  string) ; 

. XtFree (string) ; 

} 

XtFree (filename) ; 

) 

else 

{ 

XmTextSetString (data->text,  "”) ; 

} 

} 

/* 

*  Create  a  new  query  spec  callback.  The  data  for  this  callback  is  passed 

*  through  the  client  data  as  a  pointer  to  a  FILEDLG_DATA  structure.  Open  the 

*  Syntax  Directed  Editor  for  the  user  to  input  a  new  query/spec.  After  the 

*  editor  is  closed  the  file  is  saved  in  the  file  query, psdl.  The  query/spec 

*  text  display  is  updated, 

*/ 

void 

newCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

FILEDLG_DATA  *data  =  (FILEDLG_DATA  *)  client_data; 

/* 

*  Pass  null  for  the  file  name  and  text  string  so  that  the  editor  will 

*  start  with  an  empty  specification. 

*/ 

char  *string  =  NULL; 
char  *  filename  =  NULL; 

editfile (data,  sfilename,  &string) ; 

} 

/* 

*  Edit  existing  query  spec  callback.  The  data  for  this  callback  is  passed 

*  through  the  client  data  as  a  pointer  to  a  FILEDLG_DATA  structure.  Open  the 

*  Syntax  Directed  Editor  for  the  user  to  input  a  new  query/spec.  After  the 

*  editor  is  closed  the  file  is  saved  in  the  specified  file  or  query. psdl  if 

*  one  is  not  specified.  The  query/spec  text  display  is  updated. 

*/ 

void 

editCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call__data) 

{ 

FILEDLG_DATA  *data  =  ( FI LEDLG^DATA  *)  client_data; 

/* 

*  get  the  file  name  and  text  string  so  that  they  will  be  loaded  into  the 

*  editor  when  it  starts. 

*/ 
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char  *string  =  XmTextGetString (data“>text) ; 

char  *filename  =  XmTextGetString {data->fname_text) ; 

editfile {data,  &filename,  &string) ; 

} 

/* 

*  OK  callback  for  the  file  selection  dialog.  The  data  for  this  callback  is 

*  passed  through  the  client  data  as  a  pointer  to  a  FILEDLG_DATA  structure  and 

*  the  call  data  as  pointer  to  a  XmFileSelectionBoxCallbackStruct .  The  file 

*  name  is  take  from  the  call  data  and  the  file  name  text  is  updated  and  the 

*  query/spec  text  display  is  loaded  with  the  files  contents. 

*/ 

static  void 

fileokCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) 

{ 

FILEDLG_DATA  *data  =  (FILEDLG_DATA  *)  client__data; 
XmFileSelectionBoxCallbackStruct  *ptr; 
char  *string; 
char  * filename; 

/* 

*  Convert  the  file  name  to  a  character  string. 

V 

ptr  =  (XmFileSelectionBoxCallbackStruct  *)  call_data; 
XmStringGetLtoR(ptr->value,  XmSTRING_DEFAULT_CHARSET,  Sfilename) ; 

/* 

*  If  the  user  did  not  select  a  file  we  are  done 


if  (filename  !=  NULL) 

{ 


*  Save  the  directory  for  the  next  time  the  user  wants  to  open  a  file, 

*  This  will  make  the  task  of  entering  multiple  files  from  the  same 

*  directory  easier. 


if  (save_directory  !=  NULL) 

XtFree (save_directory) ; 

save_directory  =  getdirname ( filename) ; 

/* 

*  Display  the  file  name  in  its  text  widget.  This  is  also  the  place  we 
*  save  the  file  name  for  later  use. 

*/ 


XmTextSetString(data->fname_text,  filename) ; 

/* 

*  Display  the  specification  in  its  text  widget.  If  their  was  an  error 
*  loading  the  file  tell  the  user. 

V 

if  (LoadFile (filename,  sstring)  ==  -1) 

{ 

ModalWarningDialog (data->parent,  "Error",  "Error  loading  file"); 

} 

if  (string  !=  NULL) 

{ 

XmTextSetString (data->text,  string) ; 

XtFree (string) ; 

} 

} 

/* 

*  Take  the  dialog  box  off  of  the  screen  and  free  up  its  data 
*/ 
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XtUnmanageChild (data->parent) ; 
XtDestroyWidget (data->parent) ; 


/* 

*  Cancel  callback  for  the  file  selection  dialog. 

*/ 

static  void 

filecancelCB (Widget  widget,  XtPointer  client  data,  XtPointer  call  data) 

{ 

XtUnmanageChild ( (Widget)  client_data) ; 

XtDestroyWidget ( (Widget)  client_data) ; 

} 

/* 

*  OK  callback  for  the  save  as  file  selection  dialog.  The  data  for  this 

*  callback  is  passed  through  the  client  data  as  a  pointer  to  a  FILEDLG_DATA 

*  structure  and  the  call  data  as  pointer  to  a  XmFileSelectionBoxCallbackStruct . 

*  The  file  name  is  take  from  the  call  data  and  the  query/spec  text  is  save  to 

*  the  file. 

V 

static  void 

saveasokCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) 

{ 

FILEDLG_DATA  *data  ( FILEDLG_DATA  *)  client_data; 

XmFileSelectionBoxCallbackStruct  *ptr; 
char  *string  =  XmTextGetString (data->text ) ; 
char  * filename; 

/* 

*  Convert  the  file  name  to  a  character  string. 

ptr  =  (XmFileSelectionBoxCallbackStruct  *)  call_data; 
XmStringGetLtoR(ptr->value,  XmSTRING_DEFAULT_CHARSET,  & filename) ; 

/* 

*  Take  the  dialog  box  off  of  the  screen  and  free  up  its  data 
*/ 


XtUnmanageChild (data“>parent) ; 

XtDestroyWidget (data->parent) ; 

/* 

*  If  the  user  did  not  select  a  file  we  are  done 
*/ 

if  (filename  ==  NULL) 
return; 

/* 

*  Save  the  directory  for  the  next  time  the  user  wants  to  open  a- file.  This 

*  will  make  the  task  of  entering  multiple  files  from  the  same  directory 

*  easier. 

*/ 

if  (save_directory  !=  NULL) 

XtFree (save_directory) ; 

save_directory  =  getdirname (filename) ; 

/* 

*  Display  the  file  name  in  its  text  widget.  This  is  also  the  place  we  save 

*  the  file  name  for  later  use. 

*/ 

XmTextSetString (data->fname_text,  filename) ; 

/* 

*  If  the  specification  text  is  not  empty  save  it  into  the  file. 

*/ 
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if  (string  !=  NULL) 

{ 

savetext (data->parent,  filename,  string); 
XtFree (string)  ; 

} 


/* 

*  Edit  new  or  existing  query  spec.  This  will  be  changed  to  call  the  syntax 

*  directed  editor  (SDE)  from  CAPS. 

*/ 

static  void 

editfile ( FILEDLG_DATA  *  data,  char  **filename,  char  **string) 

{ 

/* 

*  Open  the  editor  with  the  file  name  and  specification  so  the  use  can  make 

*  changes, 

*/ 


SDE (data->parent,  filename,  string); 

/* 

*  If  the  user  did  not  save  the  specification  we  are  done 
*/ 

if  (*string  ==  NULL) 

{ 

if  (*filename  !=  NULL) 

XtFree ( *  filename ) ; 
return; 

} 

/* 

*  If  the  user  did  not  enter  a  file  name  use  the  default 
*/ 


if  {^filename  ==  NULL) 


*  filename  =  "query .psdl"; 
savetext ( data“>parent ,  *  filename , 
XmTextSetString (data->fname_text, 
} 

else 

{ 

savetext (data->parent,  *filename, 
XmTextSet String (data“>fname_text, 
XtFree (* filename) ; 

} 


♦string) ; 
♦filename) ; 


♦string) ; 
♦filename) ; 


/* 

*  Display  the  specification  in  its  text  widget. 
♦/ 


XmTextSetString (data->text,  ♦string) ; 
XtFree (♦string) ; 


C.  DISPLAYPROGRESS.H 


/* 

*  $Id:  DisplayProgress .h, v  1.4  1998/01/18  17:40:48  greg  Exp  $ 

* 

*  DisplayProgress .h  —  Software  Base  Search  Interface 

* 

♦  Header  file  for  the  progress  display. 

* 

*  Naval  Postgraduate  School 

♦  January  13,  1998 

★ 

*  Written  by  Gregory  L.  Meckstroth 
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* 

*/ 

void 

initilize_display (Widget  parent) ; 
void 

clear_display (char  *title); 
void 

home_di splay (void) ; 
void 

display_message (char  *message) ; 


D.  DISPLAYPROGRESS.C 

/* 

*  $Id:  DisplayProgress .C, V  1.4  1998/01/18  17:40:48  greg  Exp  $ 

* 

*  DisplayProgress .C  —  Software  Base  Search  Interface 

*  Source  code  for  the  progress  display. 

* 

*  Entry  points:  initilize_display  clear_display  display_message 

* 

*  Naval  Postgraduate  School 

*  January  11,  1998 
■  * 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 

linclude  <stdio.h> 

# include  <Xm/Xm.h> 

#include  <Xm/Text.h> 

#include  <Xm/Form.h> 

#include  <Xm/ScrolledW.h> 
tinclude  <Xni/PushB  .h> 

tinclude  "Gui.h" 

#include  "Utils. h" 

#include  "DisplayProgress .h” 

/* 

*  Declarations  for  local  functions. 

*/ 

static  void 

dismissCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 

/* 

*  The  following  widgets  are  global,  to  this  routine,  to  minimize  the  effort  in 

*  interfacing  the  display  routines  to  the  ADA  search  code. 

*/ 

static  Widget  display_window  =  NULL; 
static  Widget  text_display  =  NULL; 

/* 

*  Initilize  the  display  widgets 
*/ 

void 

initilize_display (Widget  parent) 

{ 

Widget  dismiss_btn; 

XmString  xmstring; 
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Arg  args [20] ; 

Cardinal  n; 

if  (text_display  !=  NULL) 
return; 

/* 

*  Setup  the  display  dialog 
*/ 

n  =  0; 

SETARG (args [n] ,  XmNautoUnmanage,  False,  n) ; 

SETARG(args[n] ,  XmNwidth,  DIALOG_WIDTH,  n) ; 

SETARG(args [n] ,  XmNheight,  1.5  *  INFO_WINDOW_HEIGHT,  n); 
SETARG{args [n] ,  XmNnoResize,  False,  n) ; 

display_window  =  XmCreateFormDialog (parent,  "sbsdialog",  args,  n) ; 
/* 

*  Add  button  to  the  bottom  of  the  dialog  box 
*/ 


xmstring  =  XmStringCreateSimple ( "Dismiss") ; 
dismiss_btn  =  XtVaCreateManagedWidget ( "sbslabel", 
xmPushButtonWidgetClass ,  display_window, 

XmNlabelString,  xmstring, 

XmNwidth,  BUTTON_WIDTH, 

XmNheight,  BUTTON_HEIGHT, 

XmNle ft Attachment,  XmATTACH_FORM, 

XmNleftOffset,  20, 

XmNright Attachment,  XmATTACH_NONE, 

XmNtopAttachment,  XmATTACH_NONE , 

XmNbottomAttachment,  XmATTACH_FORM, 

XmNbottomOf fset,  10, 

NULL)  ; 

XmStringFree (xmstring) ; 

XtAddCaliback (dismiss_btn, 

XmNactivateCallback, 

(XtCallbackProc)  dismissCB, 

(XtPointer)  display_window) ; 

XtManageChild(dismiss_btn) / 

/* 

*  Add  the  scrolled  text  window.  This  is  attached  to  the  top  of  the  dialog 

*  box  and  the  top  of  the  dismiss  button. 

*/ 


n  =  0; 

SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 


XmNeditMode,  XmMULTI_LINE_EDIT,  n) ; 
XmNeditable,  False,  n) ; 

XmNtraversalOn,  False,  n)  / 
XmNcursorPositionVisible,  False,  n) ; 

XmNle ft Attachment,  XmATTACH_FORM,  n) ; 
XmNleftOffset,  5,  n); 

XmNrightAttachment,  XmATTACH^FORM,  n) ; 
XmNrightOf fset,  5,  n) ; 

XmNtopAttachment,  XmATTACH^FORM,  n) ; 
XmNtopOffset,  5,  n) / 

XmNbottomAttachment,  XmATTACH_WIDGET,  n) ; 
XmNbottomWidget,  dismiss^btn,  n) ; 
XmNbottomOf fset,  5,  n) ; 

XmNresizable,  True,  n) / 


text_display  =  XmCreateScrolledText (display_window,  "sbstext",  args,  n) ; 
XtManageChild (text_display) ; 


/* 

*  Clear  the  display  and  change  the  dialog  title. 
*/ 


void 
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clear_display (char  *title) 

{ 

if  (display_winciow  1=  NULL  &&  title  !=  NULL) 

{ 

Set_Res_String(display_window,  XmNdialogTitle,  title); 

} 

if  (text_display  !=  NULL) 

XmTextSetString {text_display, 

if  { !  XtlsManaged  (display__window)  ) 

XtManageChild  (display__window)  ; 

} 

/* 

*  Scroll  display  to  so  first  line  is  a  the  top  of  window 
*/ 

void 

home_display (void) 

{ 

if  (text_display  !=  NULL) 

XmTextScroll Hext_display,  -1000) ; 

} 

/* 

*  Display  progress  messages  and  help  information. 

*/ 

void 

display_message (char  *message) 

{ 

XtAppContext  app_context; 

XtInputMask  mask; 

XmTextInsert (text_display,  10000,  message); 

app_context  =  XtWidgetToApplicationContext (text_display)  ; 
while  ((mask  =  XtAppPending (app_context) ) ) 
XtAppProcessEvent (app_context,  mask) ; 


/* 

*  Callback  to  take  the  progress  display  off  of  the  screen. 

V 

static  void 

dismissCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

if  (XtlsManaged ( (Widget)  client_data) ) 

XtUnmanageChild ( (Widget)  client_data) ; 


E.  GUI.H 


/* 

*  $Id:  Gui.h,v  1.3  1998/01/16  17:29:38  greg  Exp  $ 

*  Gui.h  —  Software  Base  Search  Interface 

* 

*  Header  file  of  the  common  GUI  definitions. 

★ 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 

★  / 


/* 
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*  Define  the  location  of  the  software  base.  It  is  assumed  that  the  location 

*  will  be  static  and  that  the  CAPS  system  will  be  rebuilt  for  different 

*  systems. 

*/ 


#define  SBROOT  "/home/greg/Thesis/SoftwareBase/" 

/* 

*  Define  the  size  of  the  common  widgets  and  buffers. 

*/ 

#define  MAXBUFSIZE  1024 
#define  DIALOG_WIDTH  600 
#define  DIALOG_HEIGHT  950 

tdefine  INFO_WINDOW_WIDTH  (DIALOG_WIDTH-100) 

#define  INFO_WINDOW_HEIGHT  250 
#define  BUTTON_WIDTH  77 
#define  BUTTON_HEIGHT  33 

/* 

*  Define  a  macro  to  set  the  Motif  arguments. 

*  Note;  indent  wants  to  move  the  increment  of  n  to  a  separate  line  defeating 

*  the  standard  Motif  style. 

*/ 


#define  SETARG (arg, name, value, n)  XtSetArg (arg, name, value) ;n++; 


F.  GUI.C 


/* 

*  $Id:  HelpMessages . h, V  1.3  1998/01/25  22:49:08  greg  Exp  $ 

* 

*  Menu.h  —  Software  Base  Search  Interface 

★ 

*  Header  file  for  the  GUI  menus. 

★ 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

★ 

*/ 

/* 

*  The  first  string  is  used  as  the  help  dialog  title 
*/ 


static  const  char  *maintenance_help_message [ ]  - 

{ 

"Maintenance  Help", 

"  CAPS  SOFTWARE  BASE  SEARCH  \n", 

"\n", 

"  NAVAL  POSTGRADUATE  SCHOOL  \n", 

"  MONTEREY,  CALIFORNIA  \n", 

"  January  11,  1998  \n", 

”\n", 

"Initialize  components  in  the  CAPS  software  base.  This  dialog  box  \n", 
"displays  the  PSDL  specification  and  component  file  list-  The  input  \n", 
"consists  of  the  component  specification  in  PSDL  and  the  component  \n", 

"file  list.  The  spec  file  name  can  be  changed  by  typing  the  new  name  \n", 

"in  the  PSDL  Spec  window.  After  entering  the  file  name  press  the  enter  \n", 
"key  to  update  the  spec  display,  \n", 

"\n", 

"Each  component  in  the  Software  Base  is  stored  in  a  separate  directory.  \n", 
"After  entering  all  files  for  a  component  the  user  can  initialize  the  \n", 
"component  directory  structure  by  pressing  the  'Init  DIR'  button  or  \n", 
"through  the  Init  menu.  After  the  component  directory  is  initialized  \n", 
"the  use  can  enter  another  component.  This  can  be  repeated  until  all  \n", 
"components  have  been  entered.  Then  the  Software  Base  must  be  \n", 
"initialized  by  pressing  the  'Init  SB'  button  or  through  the  Init  menu.  \n", 
"\n". 
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"All  component  files  are  copied  to  the  component  directory  no  user  \n’', 
"files  will  be  deleted.  \n", 

"\n", 

"The  Spec  menu  allows  the  user  to  manage  the  PSDL  query.  \n", 

"  New:  Starts  the  Syntax  Directed  Editor  to  input  a  new  query.  \n", 
"\n", 

"  Open:  Open  an  existing  query  file.  \n", 

"\n", 

"  Edit:  Starts  the  Syntax  Directed  Editor  to  edit  the  current  query.  \n 
"\n", 

"  Save:  Save  the  current  query.  \n", 

"\n", 

"  SaveAs :  Save  the  current  query  in  a  user  specified  file.  \n", 

”\n", 

"  Close:  Close  the  search  dialog.  \n", 

"\n", 

"  Exit:  Exit  the  program,  \n", 

"\n", 

"The  component  menu  allows  the  user  to  manage  the  component  file  list.  \n 
"  Add  Component  files:  \n", 

"\n", 

"  Clear  Component  file  list:  \n", 

”\n", 

"  Clear  all:  \n", 

"\n", 

"Buttons.  \n", 

"\n", 

"Dismiss:  Close  the  maintenance  dialog.  \n", 

"\n", 

"Init  DIR:  Initialize  the  component  directory.  \n", 

"\n", 

"Init  SB:  Run  the  ADA  initialization  for  the  Software  Base.  \n", 

"\n", 

"Clear  FL:  Clear  the  file  list.  \n", 

"\n", 

"Clear  ALL:  Clear  file  list  and  Component  specification.  \n", 

(char  *)NULL 


/* 

*  The  first  string  is  used  as  the  help  dialog  title 
*/ 

static  const  char  *search_help_message [ ]  = 

{ 

"Search  Help", 

"  CAPS  SOFTWARE  BASE  SEARCH  \n", 

"\n", 

"  NAVAL  POSTGRADUATE  SCHOOL  \n", 

"  MONTEREY,  CALIFORNIA  \n", 

"  January  11,  1998  \n", 

"\n", 

"Search  and  retrieval  of  components  from  the  CAPS  software  base.  This  \n" 
"dialog  box  displays  the  PSDL  query,  profile  filtering  and  signature  \n" 
"matching  results.  The  input  consists  of  the  query  specification,  \n”, 
"minimum  profile  rank  and  minimum  signature  rank.  The  user  can  change  \n" 
"the  minimum  rank  by  entering  a  new  value  in  the  appropriate  text  \n", 
"window.  The  query  file  name  can  be  changed  typing  the  new  name  in  \n", 
"the  PSDL  Query  window.  After  entering  the  file  name  press  the  enter  \n", 
"key  to  update  query  display.  The  query  must  be  stored  in  a  file  for  \n", 
"the  search  routines  to  work.  If  the  user  does  not  supply  a  file  \n", 
"name  the  default  query. psdl  will  be  used.  \n", 

"\n", 

"After  running  the  search  the  user  can  view  the  results  and  select  \n", 
"the  appropriate  component  by  pushing  the  toggle  button  next  to  the  \n", 
"component  name.  Pushing  the  OK  button  will  return  the  selected  \n", 
"component.  \n", 

"\n", 

"The  Query  menu  allows  the  user  to  manage  the  PSDL  query.  \n", 

"  New:  Starts  the  Syntax  Directed  Editor  to  input  a  new  query.  \n", 

"  Open:  Open  an  existing  query  file.  \n", 

"  Edit:  Starts  the  Syntax  Directed  Editor  to  edit  the  current  \n", 

query.  \n". 

Save  the  current  query.  \n", 


Save : 
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"  SaveAs :  Save  the  current  query  in  a  user  specified  file.  \n", 

”  Close:  Close  the  search  dialog.  \n", 

"  Exit:  Exit  the  program.  \n”, 

"\n", 

"The  Search  menu  allows  the  user  to  run  the  software  base  search.  \n" , 

"  Start:  Start  the  software  base  search.  \n", 

"  \n", 

"Buttons.  \n", 

"  OK:  Exits  the  dialog  and  returns  the  selected  component  name.  \n", 

"  Search:  Start  the  software  base  search.  \n", 

"  Cancel:  Exit  the  dialog.  \n", 

(char  *)NULL 

}; 


/* 

*  The  first  string  is  used  as  the  help  dialog  title 

V 

static  const  char  *version_message [ ]  = 

{ 

"Version", 

"  CAPS  SOFTWARE  BASE  SEARCH  \n", 

"\n", 

"  NAVAL  POSTGRADUATE  SCHOOL  \n", 

"  MONTEREY,  CALIFORNIA  \n", 

"  January  11,  1998  \n”, 

"  $Revision:  1.3  $\n", 

"\n", 

(char  *)NULL 

}; 


G.  HELPMESSAGES.H 


/* 

*  $Id:  HelpMessages .h, V  1.3  1998/01/25  22:49:08  greg  Exp  $ 

* 

*  Menu.h  —  Software  Base  Search  Interface 

* 

*  Header  file  for  the  GUI  menus. 

* 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 


/* 

*  The  first  string  is  used  as  the  help  dialog  title 
*/ 


static  const  char  *maintenance_help_message [ ]  = 

{ 

"Maintenance  Help", 

"  CAPS  SOFTWARE  BASE  SEARCH  \n", 

"\n", 

"  NAVAL  POSTGRADUATE  SCHOOL  \n", 

"  MONTEREY,  CALIFORNIA  \n", 

"  January  11,  1998  \n", 

"\n", 

"Initialize  components  in  the  CAPS  software  base.  This  dialog  box  \n", 
"displays  the  PSDL  specification  and  component  file  list.  The  input  \n", 
"consists  of  the  component  specification  in  PSDL  and  the  component  \n", 

"file  list.  The  spec  file  name  can  be  changed  by  typing  the  new  name  \n", 

"in  the  PSDL  Spec  window.  After  entering  the  file  name  press  the  enter  \n", 
"key  to  update  the  spec  display.  \n", 

"\n", 

"Each  component  in  the  Software  Base  is  stored  in  a  separate  directory.  \n", 
"After  entering  all  files  for  a  component  the  user  can  initialize  the  \n", 
"component  directory  structure  by  pressing  the  'Init  DIR'  button  or  \n", 
"through  the  Init  menu.  After  the  component  directory  is  initialized  \n", 
"the  use  can  enter  another  component.  This  can  be  repeated  until  all  \n". 
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"components  have  been  entered.  Then  the  Software  Base  must  be  \n”, 
"initialized  by  pressing  the  'Init  SB’  button  or  through  the  Init  menu.  \n 
"\n", 

"All  component  files  are  copied  to  the  component  directory  no  user  \n", 
"files  will  be  deleted.  \n", 

"\n", 

"The  Spec  menu  allows  the  user  to  manage  the  PSDL  query.  \n", 

"  New:  Starts  the  Syntax  Directed  Editor  to  input  a  new  query.  \n", 

"\n", 

"  Open:  Open  an  existing  query  file.  \n", 

’'\n", 

"  Edit:  Starts  the  Syntax  Directed  Editor  to  edit  the  current  query.  \n" 
"Xn", 

"  Save:  Save  the  current  query.  \n"/ 

"\n", 

"  SaveAs:  Save  the  current  query  in  a  user  specified  file.  \n", 

"\n", 

"  Close:  Close  the  search  dialog.  \n"/ 

"\n", 

"  Exit:  Exit  the  program.  \n", 

"\n", 

"The  component  menu  allows  the  user  to  manage  the  component  file  list.  \n" 
"  Add  Component  files:  \n", 

"Xn", 

"  Clear  Component  file  list:  Xn", 

"Xn", 

"  Clear  all:  Xn", 

"Xn", 

"Buttons.  Xn", 

"Xn", 

"Dismiss:  Close  the  maintenance  dialog.  Xn", 

"Xn", 

"Init  DIR:  Initialize  the  component  directory.  Xn", 

"Xn", 

"Init  SB:  Run  the  ADA  initialization  for  the  Software  Base.  Xn", 

"Xn", 

"Clear  FL:  Clear  the  file  list.  Xn", 

"Xn", 

"Clear  ALL:  Clear  file  list  and  Component  specification.  Xn", 

(char  *)NULL 


/* 

*  The  first  string  is  used  as  the  help  dialog  title 
*/ 

static  const  char  *search_help_message [ ]  = 

{ 

"Search  Help", 

"  CAPS  SOFTWARE  BASE  SEARCH  Xn", 

"Xn", 

"  NAVAL  POSTGRADUATE  SCHOOL  Xn", 

"  MONTEREY,  CALIFORNIA  Xn", 

"  January  11,  1998  Xn", 

"Xn", 

"Search  and  retrieval  of  components  from  the  CAPS  software  base.  This  Xn", 
"dialog  box  displays  the  PSDL  query,  profile  filtering  and  signature  Xn", 
"matching  results.  The  input  consists  of  the  query  specification,  Xn", 
"minimum  profile  rank  and  minimum  signature  rank.  The  user  can  change  Xn", 
"the  minimum  rank  by  entering  a  new  value  in  the  appropriate  text  Xn", 
"window.  The  query  file  name  can  be  changed  typing  the  new  name  in  Xn", 
"the  PSDL  Query  window.  After  entering  the  file  name  press  the  enter  Xn", 
"key  to  update  query  display.  The  query  must  be  stored  in  a  file  for  Xn", 
"the  search  routines  to  work.  If  the  user  does  not  supply  a  file  Xn", 
"name  the  default  query. psdl  will  be  used.  Xn", 

"Xn", 

"After  running  the  search  the  user  can  view  the  results  and  select  Xn", 
"the  appropriate  component  by  pushing  the  toggle  button  next  to  the  Xn", 
"component  name.  Pushing  the  OK  button  will  return  the  selected  Xn", 
"component.  Xn", 

"Xn", 

"The  Query  menu  allows  the  user  to  manage  the  PSDL  query.  Xn", 

"  New:  Starts  the  Syntax  Directed  Editor  to  input  a  new  query.  Xn", 

"  Open:  Open  an  existing  query  file.  Xn", 
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Edit: 


Starts  the  Syntax  Directed  Editor  to  edit  the  current  \n", 
query.  \n", 

"  Save:  Save  the  current  query.  \n”, 

"  SaveAs:  Save  the  current  query  in  a  user  specified  file.  \n", 

"  Close:  Close  the  search  dialog.  \n'', 

"  Exit:  Exit  the  program.  \n", 

"\n", 

"The  Search  menu  allows  the  user  to  run  the  software  base  search.  \n", 

"  Start:  Start  the  software  base  search.  \n", 

"  \n", 

"Buttons.  \n", 

"  OK:  Exits  the  dialog  and  returns  the  selected  component  name.  \n", 

"  Search:  Start  the  software  base  search.  \n", 

"  Cancel:  Exit  the  dialog.  \n", 

{char  *)NULL 


/* 

*  The  first  string  is  used  as  the  help  dialog  title 


static  const  char  *version_message ( ]  = 

{ 

"Version", 

"  CAPS  SOFTWARE  BASE  SEARCH  \n", 

"\n", 

"  NAVAL  POSTGRADUATE  SCHOOL  \n", 

"  MONTEREY,  CALIFORNIA  \n", 

"  January  11,  1998  \n", 

"  $Revision:  1.3  $\n", 

"\n", 

(char  *)NULL 

}; 


H.  MAINTENANCEDIALOG.H 


/* 

*  $Id:  MaintenanceDialog.h, V  1.3  1998/01/25  22:49:08  greg  Exp  $ 

* 

*  MaintenanceDialog.h  —  Software  Base  Search  Interface 

* 

*  Header  file  for  the  initialization  dialog. 

* 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

★ 

*/ 

void  MaintenanceDialog (Widget  parent); 
void  ModalMaintenanceDialog (Widget  parent); 


I.  MAINTENANCEDIALOG.C 


/* 

*  $Id:  MaintenanceDialog. C,v  1.8  1998/01/25  22:49:08  greg  Exp  $ 

★ 

*  MaintenanceDialog. C  —  Software  Base  Search  Interface 

* 

*  Source  code  for  the  CAPS  software  base  maintenance  dialog.  This  dialog  setups 

*  the  files  needed  by  the  ADA  routines  and  runs  the  initialization.  It  is 

*  assumed  that  the  components  are  in  separate  directories  and  that  these  are 

*  the  only  directories  in  the  software  base.  All  of  the  directory  names  in  the 

*  software  base  are  written  to  the  sb_header.dat  file.  This  file  is  then  used 

*  as  input  to  the  initialization. 

* 

*  Entry  points:  MaintenanceDialog,  ModalMaintenanceDialog. 
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*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L,  Meckstroth 

* 

V 


tinclude 

tinclude 

tinclude 

#include 

iinclude 

#include 

#include 

#include 


<stdio . h> 
<stdlib.h> 
<iostream. h> 
<string .h> 
<sys/types .h> 
<sys/stat.h> 
<unistd.h> 
<dirent .h> 


tinclude 

tinclude 

#include 

#include 

tinclude 

#include 

#include 

#include 

tinclude 


<Xm/Xm . h> 
<Xm/Text . h> 
<Xm/Label .h> 
<Xm/ScrolledW . h> 
<Xm/Forni.h> 
<Xm/RowColuinn .  h> 
<Xm/Separator . h> 
<Xm/PushB . h> 
<Xm/FileSB.h> 


tinclude 

tinclude 

tinclude 

tinclude 

tinclude 

tinclude 

tinclude 

tinclude 

tinclude 


"Gui.h" 

"Menu. h" 

"SearchDialog . h" 
"SDE.h" 

"Callbacks. h" 

"Utils. h" 

"DisplayProgress . h" 
"PromptDialog . h" 
"MaintenanceDialog . h" 


/* 

*  The  INIT_DATA  structure  is  used  to  pass  data  to  the  callback  routines. 

*  parent:  widget  to  use  as  the  parent  for  dialog  construction. 

*  flist__text:  text  widget  for  component  file  list. 

*  fname_text:  text  widget  for  file  name  display. 

*  spec_text:  text  widget  for  specification  display. 

*/ 


struct  INIT_DATA 
{ 

Widget  parent; 
Widget  flist_text; 
Widget  fname_text; 
Widget  spec_text; 

}; 


/* 

*  Declarations  for  local  functions. 
*/ 


static  void 

clear (INIT_DATA  *  data); 
static  int 

ini tdirectory (char  *sfname,  INIT_DATA  *  data) ; 
static  void 

closeCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

exitCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

initdirCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

initsbCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 


51 


static  void 

addokCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

addcancelCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

addCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

clearflCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data); 
static  void 

clearallCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 

/* 

*  Declaration  for  the  "ADA  export"  initialization  routine. 

*/ 

extern  "C"  sb_init(char  *sb_root_directory,  char  *sb_header_file_name) ; 

/* 

*  Global  storage  for  the  user  selected  spec  file  and  component  directory. 
*/ 


static  char  *save_spec_filename  =  NULL; 
static  char  *save_component_dir  =  NULL; 

/* 

*  Used  by  the  modal  search  dialog.  done_with_dialog  while  true  the  event  loop 

*  will  continue  running.  Setting  this  to  false  allows  the  event  loop  to  exit. 
*/ 


static  int  done_with_dialog; 

/* 

*  Display  the  software  base  maintenance  modal  dialog. 
*/ 


void 

ModalMaintenanceDialog (Widget  parent) 

{ 

MaintenanceDialog (parent ) ; 

/* 

*  Wait  for  a  response  to  the  dialog.  When  the  Dismiss  or  cancel  button  is 

*  pressed  done_with_dialog  will  be  set  true  causing  the  loop  to  terminate. 

V 

done_with_dialog  =  False; 
while  ( ! done_with_dialog) 

XtAppProcessEvent (XtWidgetToApplicationContext (parent) ,  XtIMAll) ; 

} 

/* 

*  Display  the  software  base  maintenance  dialog. 

*/ 

void 

MaintenanceDialog (Widget  parent) 

{ 

Widget  spec_fname_text; 

Widget  dialog_window; 

Widget  menubar; 

Widget  specmenu; 

Widget  componentmenu; 

Widget  initmenu; 

Widget  helpmenu; 

Widget  previous; 

Widget  spec_label; 

Widget  scrolled_spec_window; 

Widget  spec_text; 

Widget  initsb_btn; 

Widget  initdir_btn; 
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Widget  clearfl_btn; 

Widget  clearall_btn; 

Widget  dismiss_btn; 

Widget  caps_label; 

Widget  filelist_label; 

Widget  scrolled_filelist_window; 
Widget  f ilelist_text; 

Arg  args [20] ; 

Cardinal  n; 


char  *title; 

XmString  xmstring; 

/* 

*  The  following  static  varables  are  used  by  callbacks  after 

*  MaintenanceDialog  returns. 

*/ 

static  FILEDLG__DATA  f iledlg_data; 
static  INIT_DATA  init_data; 

/* 

*  Create  the  dialog  box. 

*/ 


title  = 
n  =  0; 
SETARG( 
SETARG ( 
SETARG ( 
SETARG { 
SETARG { 
SETARG { 


"Software  Base  Maintenance"; 

args[n],  XmNautoUnmanage,  False,  n) ; 
args[n],  XmNwidth,  DIALOG_WIDTH,  n) ; 
args[n],  XmNheight,  DIALOG_HEIGHT  - 
args [n] ,  XmNnoResize,  True,  n) ; 
args[n],  XmNtitle,  title,  n) ; 
args[n],  XmNiconName,  title,  n) ; 


INFO_WINDOW  HEIGHT,  n) 


dialog_window  =  XmCreateFormDialog (parent,  "sbsdialog",  args,  n) , 


/* 

*  Save  the  dialog  widget  for  later  use. 
*/ 


filedlg_data .parent  =  dialog_window; 
init_data .parent  =  dialog_window; 

/* 

*  Create  menubar. 

*/ 


n  =  0; 

SETARG  (args  [n]  ,  XmNtopAttachment ,  XinATTACH_FORM,  n)  ; 

SETARG  (args  [n]  ,  XmNle  ft  Attachment,  XinATTACH_FORM,  n); 
SETARG(args[n] ,  XmNright Attachment,  XmATTACH_FORM,  n) ; 
menubar  =  XmCreateMenuBar (dialog_window,  "sbsmenubar",  args,  n) ; 
previous  =  menubar; 

XtManageChild (menubar) ; 

/* 

*  Create  spec  menu.  Callbacks  for  this  menu  are  in  Callbacks. C. 
*/ 

specmenu  =  CreateMenu (menubar,  "sbsmenu",  "Spec",  ’S’); 

(void) AddMenuItem( specmenu,  "new", 

"New", 

"Ctrl+N",  "Ctrl<Key>n",  'N', 

(XtCallbackProc)  newCB, 

(XtPointer)  &  filedlg_data) ; 

(void) AddMenuItem ( specmenu,  "open" , 

"Open", 

"Ctrl+0" ,  "Ctrl<Key>o" ,  'O', 

(XtCallbackProc)  openCB, 
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(XtPointer)  &  filedlg_data) ; 


(void) AddMenuItem(specmenu,  "edit”, 

"Edit”, 

”Ctrl+E",  ”Ctrl<Key>e",  ’E’, 

(XtCallbackProc)  editCB, 

(XtPointer)  &  filedlg_data) ; 

(void)XtVaCreateManagedWidget ("sep”,  xmSeparatorWidgetClass ,  specmenu,  NULL); 

(void) AddMenuItem( specmenu,  "save” , 

"Save", 

"Ctrl+S",  "Ctrl<Key>s",  'S', 

(XtCallbackProc)  saveCB, 

(XtPointer)  &  filedlg_data) ; 

(void) AddMenuItem( specmenu,  "saveas", 

"Save  As", 

"Ctrl+A",  "Ctrl<Key>a",  'A', 

(XtCallbackProc)  saveasCB, 

(XtPointer)  &  filedlg_data) ; 

(void) XtVaCreateManagedWidget ( "sep",  xmSeparatorWidgetClass,  specmenu,  NULL); 

(void) AddMenuItem( specmenu,  "close", 

"Close", 

"Ctrl+W",  "Ctrl<Key>w",  'C, 

(XtCallbackProc)  closeCB, 

(XtPointer)  &  init_data) ; 

(void) AddMenuItem (specmenu,  "exit", 

"Exit", 

"Ctrl+Q",  "Ctrl<Key>Q",  'x', 

(XtCallbackProc)  exitCB, 

(XtPointer)  NULL) ; 


/* 

*  Create  the  component  menu.  Callbacks  are  implemented  locally 
*/ 

componentmenu  =  CreateMenu (menubar,  "sbsmenu",  "Component",  'C'); 

(void) AddMenuItem (componentmenu,  "addfile", 

"Add  Component  File", 

"Ctrl+F",  "Ctrl<Key>f",  'F', 

(XtCallbackProc)  addCB, 

(XtPointer)  &  init_data) ; 

(void) AddMenuItem (componentmenu,  "clearfile", 

"Clear  Component  Files", 

"Ctrl+C",  "Ctrl<Key>c",  'C, 

(XtCallbackProc)  clearflCB, 

(XtPointer)  &  init_data); 

(void) AddMenuItem (componentmenu,  "clearall", 

"Clear  All  Files", 

"Ctrl+L",  "Ctrl<Key>l",  '1', 

(XtCallbackProc)  clearallCB, 

(XtPointer)  &  init_data); 


/* 

*  Create  the  init  menu.  Callbacks  are  implemented  locally 
*/ 

initmenu  -  CreateMenu (menubar,  "sbsmenu",  "Init",  '!’); 

(void) AddMenuItem (ini tmenu,  "initsb", 

"Initialize  Software  Base", 

"Ctrl+I",  "Ctrl<Key>i",  'I', 

(XtCallbackProc)  initsbCB, 

(XtPointer)  &  init_data); 

(void) AddMenuItem (initmenu,  "initdir", 

"Initialize  Directory", 
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"Ctrl+D”,  "Ctrl<Key>ci",  'D' 
(XtCallbackProc)  initdirCB, 
(XtPointer)  &  init_data) ; 


/* 

*  Create  Help  menu. 

*/ 

helpmenu  =  CreateHelpMenu (menubar,  "sbsmenu",  "Help",  'H'); 

/* 

*  Label  the  dialog  to  let  the  use  know  what  it  is  for. 

*/ 

xmstring  =  XmStringCreateSimple ( "CAPS  Software  Base  Maintenance"); 
caps_label  -  XtVaCreateManagedWidget { "sbslabel", 
xmLabelWidgetClass,  dialog_window, 

XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_WIDGET, 

XmNtopWidget,  previous, 

XmNtopOffset,  5, 

XmNbottomAttachment,  XmATTACH_NONE, 

XmNle  ft  Attachment,  XinATTACH_POSITION, 

XmNleftPosition,  35, 

XmNrightAttachment,  XmATTACH_NONE, 

NULL)  ; 

XmStringFree (xmstring) ; 
previous  =  caps_label; 

/* 

*  Spec_label  and  spec_fname_text  display  the  current  spec  file  name  for 

*  the  user 
*/ 

xmstring  ~  XmStringCreateSimple ( "PSDL  Spec:"); 
spec_label  =  XtVaCreateManagedWidget ("sbslabel", 
xmLabelWidgetClass ,  dialog_window, 

XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH^WIDGET, 

XmNtopWidget,  previous, 

XmNtopOf fset,>  5, 

XmNle ftAttachment,  XmATTACH_POSITION, 

XmNleftPosition,  15, 

NULL) ; 

XmStringFree (xmstring) ; 

spec_fname_text  =  XtVaCreateManagedWidget ("sbstext", 
xmTextWidgetClass,  dialog_window, 

XmNeditMode,  XmSINGLE_LINE_EDIT, 

XmNeditable,  True, 

XmNshadowThickness,  1, 

XmNmarginHeight,  2, 

XmNcursorPositionVisible,  True, 

XmNtopAttachment,  XmATTACH_WIDGET, 

XmNtopWidget,  previous, 

XmNtopOffset,  5, 

XmNle ftAttachment,  XmATTACH_WIDGET, 

XmNle ftWidget,  spec_label, 

XmNleftOf fset,  5, 

XmNrightAttachment,  XmATTACH_FORM, 

XmNrightOffset,  10, 

NULL)  ; 

/* 

*  Save  the  widget  so  that  the  file  and  init  callbacks  can  change  the  name 

*  when  the  user  enters  a  new  one. 

*/ 

filedlg_data . fname_text  =  spec_fname_text; 
init_data. fname_text  =  spec_fname_text; 

/* 

*  This  callback  will  update  the  file  name  and  spec  text  if  the  user  types 

*  a  return  in  the  fname  text  box. 
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XtAddCallback  (spec_fnaine_text ,  XmNactivateCallback/ 

(XtCallbackProc)  textchangedCB, 

(XtPointer)  &  filedlg__data)  ; 

XtManageChild (spec_fname_text) ; 

/* 

*  Setup  scrolled  window  to  display  spec  text. 

V 

scrolled_spec_window  =  XtVaCreateManagedWidget { "sbswindow" , 
xmScrolledWindowWidgetClass ,  dialog_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO_WINDOW__HEIGHT, 

XmNle ft Attachment,  XmATTACH_FORM, 

XmNrightAttachment,  XmATTACH_FORM, 

XmNtopAttachment,  XmATTACH_WIDGET, 

XmNtopWidget,  spec_label, 

XmNtopOf fset,  5, 

XiriNbottomAttachment,  XmATTACH_NONE, 

XmNresizable,  True, 

XmNleftOf f set,  5, 

XmNrightOf fset,  5, 

XmNbottomOf fset,  5, 

XmNscrollingPolicy,  XmAUTOMATIC, 

XmNscrollBarDisplayPolicy,  XmSTATIC, 

XrciNscrolledWindowMarginWidth,  5, 

XmNscrolledWindowMarginHeight,  5, 

XmNscrollVertical,  False, 

XmNscrollHorizontal,  True, 

NULL) ; 

spec_text  =  XtVaCreateManagedWidget ("sbstext", 
xmTextWidgetClass ,  scrolled_spec_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO_WINDOW_HEIGHT, 

XmNeditMode,  XinMULTI_LINE_EDIT, 

XmNshadowThickness,  0, 

XmNmarginHeight,  0, 

XmNscrollHorizontal,  False, 

XmNeditable,  False, 

XmNtraversalOn,  False, 

XmNcursorPositionVisible,  False, 

NULL) ; 

/* 

*  Save  the  widget  so  that  the  spec  text  can  be  updated  when  the  user 

*  changes  the  file  name  or  edits  that  text 
*/ 

f iledlg_data . text  =  spec^text; 
init_data. spec_text  =  spec_text; 

XmScrolledWindowSetAreas ( scrolled_spec_window, 

(Widget)  NULL, 

(Widget)  NULL, 
spec__text) ; 

XtManageChild (spec_text) ; 

/* 

*  If  the  user  is  restarting  the  dialog  try  to  use  the  file  name  that  was 

*  entered 
*/ 

if  ( save_spec_f ilename  !=  NULL) 

{ 

char  *text; 

XmTextSetString ( specif name_text ,  save_spec_f ilename ) ; 
if  (LoadFile (save_spec_f ilename,  &text)  !=  -1  &&  text  !-  NULL) 


{ 

XmTextSetString (spec_text,  text)  ; 
XtFree ( text ) ; 


XtFree (save_spec_filename) ; 

save_spec_filename  =  NULL; 

} 

/* 

*  Filelist__label  and  filelist_text  display  the  component  file  list  that 

*  will  be  copied  into  the  component  directory 

*/ 

xmstring  =  XmStringCreateSimple ( "Component  Files:"); 

filelist_label  =  XtVaCreateManagedWidget ( "sbslabel", 
xmLabelWidgetClass ,  dialog_window, 

XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_WIDGET, 

XmNtopWidget,  scrolled_spec_window, 

XmNtopOf f set,  5, 

XmNleftAttachment,  XmATTACH_POSITION, 

XmNleftPosition,  15, 

NULL) ; 

XmStringFree (xmstring) ; 

scrolled_filelist_window  -  XtVaCreateManagedWidget ( "sbswindow", 
xmScrolledWindowWidgetClass,  dialog_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO_WINDOW_HEIGHT, 

XmNleftAttachment,  XmATT AC REFORM, 

XmNrightAttachment,  XmATTACH^FORM, 

XmNtopAttachment,  XmATTACH_WI DGET , 

XmNtopWidget,  filelist_label, 

XmNtopOffset,  5, 

XmNbottomAttachment,  XmATTACH_NONE , 

XmNresizable,  True, 

XmNleftOffset,  5, 

XmNrightOf fset,  5, 

XmNbottomOffset,  5, 

XmNscrollingPolicy,  XmAUTOMATIC, 

XmNscrollBarDisplayPolicy,  XmSTATIC, 

XmNscrolledWindowMarginWidth,  5, 

XmNscrolledWindowMarginHeight,  5, 

XmNscrollVertical,  False, 

XmNscrollHorizontal,  True, 

NULL) ; 

previous  =  scrolled_filelist_window; 

filelist_text  =  XtVaCreateManagedWidget ( "sbs text", 
xmTextWidgetClass,  scrolled_filelist_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO_WINDOW_HEIGHT, 

XmNeditMode,  XmMULTI_LINE_EDIT, 

XmNshadowThic)cness,  0, 

XmNmarginHeight,  0, 

XmNscrollHorizontal,  True, 

XmNeditable,  True, 

XmNtraversalOn,  True, 

XmNcursorPositionVisible,  True, 

NULL) ; 

/* 

*  Save  the  widget  so  that  the  init  callbacks  can  update  the  file  list  when 

*  the  user  enters  changes. 

*/ 


init_data. flist_text  =  filelist_text; 

XmScrolledWindowSetAreas ( scrolled_f ilelist_window, 
(Widget)  NULL, 

(Widget)  NULL, 
filelist  text) ; 
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XtManageChild ( filelist_text) ; 

/* 

*  Create  the  push  buttons  at  the  bottom  of  the  dialog  box, 
*/ 


xmstring  =  XmStringCreateSimple ( "Dismiss") ; 

dismiss_btn  =  XtVaCreateManagedWidget ( "sbslabel", 
xmPushButtonWidgetClass ,  dialog_window, 
XmNlabelString,  xmstring, 

XmNwidth,  BUTTON_WIDTH, 

XmNheight,  BUTTON_HEIGHT, 

XmNle ft Attachment,  XmATTACH_FORM, 

XmNleftOffset,  20, 

XmNright Attachment,  XmATTACH_NONE, 
XmNtopAttachment,  XmATTACH_NONE , 
XmNbottomAttachment,  XmATTACH_FORM, 

XmNbottomOf fset,  10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallbaclc  (dismiss_btn, 

XmNactivateCallback, 

(XtCallbackProc)  closeCB, 

(XtPointer)  &  init_data); 

XtManageChild (dismiss_btn) ; 

xmstring  =  XmStringCreateSimple ( "Init  DIR"); 

initdir_btn  =  XtVaCreateManagedWidget ("sbslabel", 
xmPushButtonWidgetClass,  dialog_window, 
XmNlabelString,  xmstring, 

XmNwidth,  BUTTON_WIDTH, 

XmNheight,  BUTTON_HEIGHT, 

XmNleftAttachment,  XmATTACH_WIDGET, 
XmNleftWidget,  dismiss_btn, 

XmNleftOffset,  10, 

XmNrightAttachment,  XinATTACH__NONE, 
XmNtopAttachment,  XmATTACH_NONE, 
XmNbottomAttachment,  XmATTACH_FORM, 

XmNbottomOf fset,  10, 

NULL)  ; 

XmStringFree (xmstring) ; 

XtAddCallback (initdir_btn, 

XmNactivateCallback, 

(XtCallbackProc)  initdirCB, 

(XtPointer)  &  init_data); 

XtManageChild (initdir_btn) ; 

xmstring  =  XmStringCreateSimple ( "Init  SB"); 

initsb_btn  =  XtVaCreateManagedWidget ( "sbslabel", 
XmPushButtonWidgetClass ,  dialog_window, 
XmNlabelString,  xmstring, 

XmNwidth,  BUTTON__WIDTH, 

XmNheight,  BUTTON_HEIGHT, 

XmNleftAttachment,  XmATTACH_WIDGET, 
XmNleftWidget,  initdir_btn, 

XmNleftOffset,  10, 

XmNrightAttachment,  XmATTACH_NONE, 
XmNtopAttachment,  XinATTACH_NONE, 
XmNbottomAttachment,  XmATTACH_FORM, 

XmNbottomOf fset,  10, 

NULL)  ; 

XmStringFree (xmstring) ; 

XtAddCallback (initsb_btn, 

XmNactivateCallback, 

(XtCallbackProc)  initsbCB, 

(XtPointer)  &  init_data); 

XtManageChild (initsb_btn) ; 
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xmstring  =  XmStringCreateSimple ( "Clear  FL")  ; 

clearfl_btn  =  XtVaCreateManagedWidget ( "sbslabel", 
xmPushButtonWidgetClass,  dialog_window, 

XmNlabelString,  xmstring, 

XmNwidth,  BUTTON_WIDTH, 

XmNheight,  BUTTON__HEIGHT, 

XmNleftAttachment,  XmATTACH_WIDGET, 

XmNleftWidget,  initsb_btn, 

XmNleftOf f set,  10, 

XmNrightAttachment,  XmATTACH_NONE , 

XmNtopAttachment,  XmATTACH_NONE, 

XmNbottomAttachinent,  XmATTACH_FORM, 

XmNbottomOffset,  10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback.  (clearf  l_btn, 

XmNactivateCallback, 

(XtCallbackProc)  clearflCB, 

(XtPointer)  &  init_data) ; 

XtManageChild (clearfl_btn) ; 

xmstring  -  XmStringCreateSimple ( "Clear  All"); 

clearall_btn  -  XtVaCreateManagedWidget ( "sbslabel", 

XmPushButtonWidgetClass ,  dialog_window, 

XmNlabelString,  xmstring, 

XmNwi dt h ,  BUTTON_WI DTH , 

XmNheight,  BUTTON_HEIGHT, 

XmNleftAttachment,  XmATTACH^WIDGET, 

XmNleftWidget,  clearfl_btn, 

XmNleftOf f set,  10, 

XmNrightAttachment,  XmATTACH_NONE , 

XmNtopAttachment,  XmATTACH_NONE, 

XmNbottomAttachment,  XmATTACH_FORM, 

XmNbottomOffset,  10, 

NULL); 

XmStringFree (xmstring) ; 

XtAddCallback (clearall_btn, 

XmNactivateCallback, 

(XtCallbackProc)  clearallCB, 

(XtPointer)  &  init_data) ; 

XtManageChild (clearall_btn) ; 

XtManageChild (dialog_window) ; 

/* 

*  Initialize  the  progress  display  this  is  done  one  time  from  the  search 

*  dialog  or  init  dialog. 

*/ 

initilize_display (parent) ; 

} 

/* 

*  Clear  all  of  the  init  dialog  text  displays. 

V 

static  void 

clear (INIT_DATA  *  data) 

{ 

XmTextSetString (data->fname_text,  "") ; 

XmTextSetString (data“>spec_text,  "") ; 

XmTextSetString (data->flist_text,  "")  ; 

} 

/* 

*  Initialize  the  component  directory.  Create  the  directory  using  the  spec  file 

*  name  with  out  the  extension  as  the  directory  name.  Copy  the  spec  file  and 

*  all  files  in  the  file  list  into  the  component  directory. 

*/ 


static  int 
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initdirectory {char  *sfname,  INIT_DATA  *  data) 

{ 

char  *sbfname; 
char  * component; 
char  *extension; 
char 

char  lObuffer [MAXBUFSIZE] ; 
char  *flist; 
char  *path; 
char  *newline; 

char  *  format  =  "Copying:  %s\n  To:  %s\n\n"; 

/* 

*  Show  the  user  what  is  happening  in  the  progress  display.  The  display  was 

*  cleared  by  the  calling  routine. 

*/ 


display_message ("Doing  Directory  Initilization\n\n") ; 

/* 

*  Create  the  component  directory  using  the  spec  file  name  without  the 

*  extension  as  the  directory  name. 

*/ 


sbfname  =  getfilename (sfname) / 
component  =  catstrings (SBROOT,  sbfname); 

extension  =  strrchr (component, 
if  (extension  !=  NULL) 

{ 

strcpy (extension,  "/"); 

} 

sprintf (lObuffer,  "Creating  directory:  %s\n\n",  component); 
display_message (lObuffer) ; 

if  (mlcdir  (component,  0755)  --  -1) 

{ 

sprintf { lObuffer,  "error  creating  component  directory  %s\nDone . \n",  component) 
ModalWarningDialog(data->parent,  "Error",  lObuffer); 
return  True; 

} 

/* 

*  Copy  the  spec  file  into  PSDL_SPEC  which  is  used  by  the  ADA  search 

*  routines.  For  convenience  also  copy  the  file  into  the  component 

*  directory. 

*/ 

file  «  catstrings (component,  "PSDL_SPEC" ) ; 
sprintf (lObuffer,  format,  sfname,  file); 
display_message (lObuffer) ; 

CopyFile (sfname,  file); 

XtFree (file) ; 

file  =  catstrings (component,  sbfname); 
sprintf (lObuffer,  format,  sfname,  file); 
display_message (lObuffer) ; 

CopyFile (sfname,  file); 

XtFree (file) ; 

XtFree (sbfname) ; 

/* 

*  Now  copy  all  of  the  files  in  the  file  list  into  the  component  directory 
*/ 

flist  =  XmTextGetString (data->flist_text) ; 
newline  =  strchr (flist,  '\n'); 

for  (path  =  flist;  newline  !=  NULL;  newline  =  strchr (path,  '\n’)) 

{ 

♦newline  =  '\0'; 
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sbfname  =  getfilename (path) ; 
file  =  catstrings (component,  sbfname); 
sprintf (lObuf fer,  format,  path,  file) ; 
display_message (lObuf fer) ; 

CopyFile (path,  file) ; 

XtFree (sbfname) ; 

XtFree (file) / 

path  -  newline  +  1; 

} 

XtFree ( flist )  ; 

XtFree (component)  ; 
display_message ( "Done\n" )  ; 
return  False; 

} 

/* 

*  Callback  closes  the  dialog  and  saves  the  spec  file  name  for  later.  The  data 

*  for  this  callback  is  passed  through  the  client  data  as  a  pointer  to  a 

*  INIT_DATA  structure. 

*/ 


static  void 

closeCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

INIT_DATA  *data  =  (INIT_DATA  *)  client_data; 

if  (save_spec_filename  !=  NULL) 

XtFree (save_spec_filename)  ; 

save_spec_filename  =  gettext (data->fname_text) ; 

if  (XtIsManaged(data->parent) ) 

XtUnmanageChild (data->parent) ; 

done__with_dialog  =  True; 

} 

/* 

*  Callback  exits  program. 

*/ 


static  void 

exitCB (Widget  widget, 

XtPointer  client_data, 
XtPointer  call_data) 

{ 

exit (0) ; 


/* 

*  Callback  to  initialize  the  component  directory.  The  data  for  this  callback  is 

*  passed  through  the  client  data  as  a  pointer  to  a  INIT_DATA  structure. 

*/ 

static  void 

initdirCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

INIT_DATA  *data  =  (INIT_DATA  *)  client_data; 
char  *sfname  =  gettext (data->fname_text) ; 

/* 

*  Clear  the  progress  display  and  change  its  title 
*/ 

clear_display ("Initializing  SB  Directory"); 
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/* 

*  If  the  user  had  not  entered  a  spec  file  name  no  need  to  init  directory 
*/ 


if  (sfname  !=  NULL) 

{ 

/* 

*  If  the  directory  initialization  errors  out  don't  clear  the  dialog. 
*/ 

if  (! initdirectory (sfname,  data)) 
clear (data) ; 

XtFree (sfname) ; 

} 


/* 

*  Callback  to  initialize  the  software  base.  The  data  for  this  callback  is 

*  passed  through  the  client  data  as  a  pointer  to  a  INIT_DATA  structure.  If  the 

*  user  has  entered  a  spec  initialize  the  component  directory  first.  Then  create 

*  sb_header.dat  file  before  running  the  initialization  routine. 

*/ 

static  void 

initsbCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

INIT_DATA  *data  =  (INIT_DATA  *)  client__data; 

FILE  *fp; 

struct  dirent  *entry; 

DIR  *dirp; 

struct  stat  file_info; 
long  ID  =  1000; 

char  *sfname  =  gettext  (data-‘>fname_text)  ; 
char  *file; 

char  *header_file_name; 

/* 

*  Let  the  user  know  what  is  happening 
*/ 


clear_display ("Initializing  Software  Base"); 
display_message ("Doing  software  Base  Initialization  \n\n") ; 

/* 

*  Initialize  the  component  directory  if  their  is  a  spec  name 
*/ 

if  (sfname  !-  NULL) 

{ 

/* 

*  If  the  initialization  errors  out  stop  and  give  the  user  a  chance  to 

*  fix  the  problems 
*/ 

if  (initdirectory (sfname,  data)) 
return; 

} 

/* 

*  Create  the  header  file  in  the  software  base  root  directory 
*/ 

header_file_name  =  catstrings (SBROOT,  "sb_header.dat"); 
fp  =  fopen (header_file_name,  "w"); 

/* 

*  Loop  through  the  software  base  root  directory  adding  the  component 

*  directories  to  the  header  file 
*/ 
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dirp  =  opendir (SBROOT) ; 

for  (entry  =  readdir (dirp) ;  entry  !=  NULL;  entry  =  readdir (dirp) ) 
{ 

if  (entry->d_name [0]  ==  *.') 
continue; 


/* 

*  Only  add  directory  names  to  the  header  file. 

*/ 

file  -  catstrings (SBROOT,  entry~>d_name) ; 
if  (stat(file,  &file_info)  !=  0) 

{ 

closedir (dirp) ; 

XtFree (file) ; 
break; 

} 

if  {S_ISDIR(file_info.st_mode) ) 

{ 

fprintf(fp,  "%ld  %s\n",  ID,  file); 

ID  +=  1000; 

} 

XtFree (file) ; 

} 

closedir (dirp) ; 
fclose ( fp) ; 

/* 

*  Run  the  ADA  software  base  initialization.  Progress  messages  are  displayed 

*  to  let  the  user  know  what  is  happening 
*/ 


sb_init (SBROOT,  header_file_name) ; 

XtFree (header_f ile_name ) ; 

/* 

*  Clear  the  dialog  so  that  the  user  can  enter  another  spec  if  needed. 
*/ 


clear (data) ; 

display_message (”Done\n")  ; 

} 

/* 

*  OK  callback  for  adding  components  to  the  file  list.  The  data  for  this 

*  callback  is  passed  through  the  client  data  as  a  pointer  to  an  INIT_DATA 

*  structure  and  *  the  call  data  is  a  pointer  to  a 

*  XmFileSelectionBoxCallbackStruct .  The  file  *  name  is  take  from  the  call  data 

*  and  added  to  the  file  list  text. 

*/ 

static  void 

addokCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

INIT_DATA  *data  =*  (INIT_DATA  *)  client_data; 
XmFileSelectionBoxCallbackStruct  *ptr; 
char  * filename; 

/* 

*  Convert  the  file  name  to  a  character  string. 

*/ 

ptr  =  (XmFileSelectionBoxCallbackStruct  *)  call_data; 
XmStringGetLtoR(ptr->value,  XmSTRING_DEFAULT_CHARSET,  & filename) ; 

/* 

*  Take  the  dialog  box  off  of  the  screen  and  free  up  its  data 
*/ 
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XtUnmanageChild  (data-“>parent ) ; 

XtDestroyWidget {data~>parent ) ; 

/* 

*  If  the  user  did  not  select  a  file  we  are  done 
*/ 


if  (filename  ==  NULL) 
return; 

if  (save_component_dir  !=  NULL) 

XtFree (save_component_dir) ; 

/* 

*  Save  the  directory  for  the  next  time  the  user  wants  to  open  a  file.  This 

*  will  make  the  task  of  entering  multiple  files  from  the  same  directory 

*  easier. 

V 

save_component_dir  =  getdirname ( filename) ; 

/* 

*  Display  the  file  list  in  its  text  widget.  This  is  also  the  place  we  save 

*  the  file  list  for  later  use. 

V 

XmTextInsert (data“>flist_text,  10000,  filename); 

XmTextInsert (data->flist_text,  10000,  "\n”) ; 

XtFree (filename) ; 


/* 

*  Cancel  callback  for  the  file  list  selection  dialog. 

*/ 

static  void 

addcancelCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) 

{ 

XtUnmanageChild ( (Widget)  client_data) ; 

XtDestroyWidget ( (Widget)  client_data) ; 

} 

/* 

*  Add  file  dialog  callback.  Displays  a  file  selection  dialog  to  the  user. 

*  The  data  for  this  callback  is  passed  through  the  client  data  as  a  pointer 

*  to  an  INIT_DATA  structure.  User  input  is  returned  through  the  addokCB 

*  callback.  The  selected  file  will  be  added  to  the  filelist 
*/ 

static  void 

addCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

INIT_DATA  *data  =  (INIT_DATA  *)  client^data; 
static  INIT_DATA  ok_data; 

Widget  fsdialog; 

Arg  args[20]; 

Cardinal  n; 

XmString  title  =  XmStringCreateSimple ( "Add  to  file  list"); 

/* 

*  Create  the  file  selection  dialog. 

*/ 


n  =  0; 

SETARG{args [n] ,  XmNdialogTitle,  title,  n) ; 

fsdialog  =  XmCreateFileSelectionDialog (data“>parent,  "sbsdialog",  args,  n) ; 

XmStringFree (title) ; 

if  ( save_component_dir  !«  NULL) 
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Set__Res_String(fsdialog,  XmNdi rectory,  save_coinponent_dir)  ; 

/* 

*  Change  the  parent  widget  to  the  file  selection  dialog  so  we  can  close  it 

*  and  not  its  parent.  The  rest  of  the  data  is  pasted  through. 

*/ 

ok_data.  parent  ==  fsdialog; 

ok_data,  flist__text  =  data->flist_text; 

ok_data . f name_text  -  data->fname_text; 

/* 

*  Add  the  callbacks  to  the  OK  and  cancel  buttons. 

*/ 


XtAddCallback ( fsdialog,  XmNokCallback, 

(XtCallbackProc)  addokCB, 

(XtPointer)  &  ok_data) ; 

XtAddCallback ( fsdialog,  XmNcancelCallback, 

(XtCallbackProc)  addcancelCB, 

(XtPointer)  fsdialog) ; 

XtManageChild( fsdialog)  ; 

} 

/* 

*  Callback  to  clear  the  component  file  list.  The  data  for  this  callback  is 

*  passed  through  the  client  data  as  a  pointer  to  a  INIT_DATA  structure. 

*/ 

static  void 

clearflCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

INIT_DATA  *data  =  (INIT_DATA  *)  client_data; 

XmTextSetString(data->flist_text,  "")  ; 

} 

/* 

*  Callback  to  clear  the  init  dialog.  The  data  for  this  callback  is  passed 

*  through  the  client  data  as  a  pointer  to  a  INIT_DATA  structure. 

*/ 

static  void 

clearallCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call__data) 

{ 

INIT_DATA  *data  =  (INIT_DATA  *)  client_data; 

clear (data) ; 

} 

J.  MENU.H 


*  $Id:  Menu.h,v  1.4  1998/01/18  16:35:45  greg  Exp  $ 

* 

*  Menu.h  —  Software  Base  Search  Interface 

* 

*  Header  file  for  the  dialogs  menus. 

* 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

★ 

*/ 
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Widget 

CreateMenu (Widget  parent, 
char  *name, 
char  *label, 
char  mnemonic) ; 


Widget 

CreateHelpMenu (Widget  parent, 
char  *name, 
char  *label, 
char  mnemonic)  ; 


Widget 

AddMenuI tern (Widget  parent, 
char  *name, 
char  *label, 
char  *acc_text, 
char  *acc_key, 
char  mnemonic, 
XtCallbackProc  callback, 
XtPointer  client  data) ; 


K.  MENU.C 


*  $Id:  Menu.C,v  1.5  1998/01/25  22:49:09  greg  Exp  $ 

* 

*  Menu.C  —  Software  Base  Search  Interface 

* 

*  Source  code  for  the  creation  of  the  menus  used  in  the  dialogs.  These  routine 

*  create  cascade  style  menus,  add  menu  items,  and  implement  the  cascade  style 

*  help  menu. 

* 

*  Entry  points:  CreateMenu,  CreateHelpMenu,  AddMenuItem. 

★ 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 


#include  <stdio.h> 
#include  <stdlib.h> 


# include  <Xm/Xm.h> 
#include  <Xm/CascadeB . h> 
tinclude  <Xm/RowColumn.h> 
#include  <Xm/PushB.h> 
#include  <Xm/Separator .h> 


#include  "Gui.h" 

#include  "Menu.h" 
tinclude  "HelpMessages .h" 
#include  "DisplayProgress .h” 


/* 

*  Declarations  for  local  functions. 


static  void 

helpCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 

/* 

*  Create  a  cascade  style  menu  with  a  widget  name,  label  and  nemonic. 
*/ 


Widget 

CreateMenu (Widget  parent,  //  Parent  for  the  menu, 

char  *name,  //  Widget  name, 

char  *label,  //  Menu  label. 
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{ 


char  mnemonic) 


//  Shortcut  key. 


Widget  menu; 

Widget  cascade; 

XmString  xmstring; 

Arg  args [20] ; 

Cardinal  n; 

/* 

*  Create  pull  down  menu.  Engage  tear-off  menu. 

V 

xmstring  =  XmStringCreateSimple (label) ; 
n=0; 

SETARG(args [n] ,  XmNt ear Off Model,  XmTEAR_OFF_ENABLED,  n) ; 
menu  =  XmCreatePulldownMenu (parent,  name,  args,  n) ; 

/* 

*  Create  cascade  button  and  connect  to  menu. 

*/ 

cascade  =  XtVaCreateWidget (name, 
xmCascadeButtonWidgetClass,  parent, 

XmNlabelString,  xmstring, 

XmNsubMenuId,  menu, 

XmNmnemonic,  mnemonic, 

NULL)  ; 

XtManageChild (cascade )  ; 
return  menu; 

} 

/* 

*  Create  the  help  menu  to  the  far  right  with  items  maintenance,  search  and 

*  version.  The  menu  will  have  a  keyboard  shortcut 
*/ 

Widget 

CreateHelpMenu (Widget  parent, 
char  *name, 
char  *label, 
char  mnemonic) 

{ 

Widget  menu; 

Widget  cascade; 

Xmstring  xmstring; 

Arg  args [20] ; 

Cardinal  n; 

/* 

*  Create  the  pull  down  menu. 

*/ 

xmstring  =  XmStringCreateSimple (label) ; 
n  =  0; 

SETARG(args [n] ,  XmNtearOf fModel,  XmTEAR_OFF_ENABLED,  n) ; 
menu  =  XmCreatePulldownMenu (parent,  name,  args,  n) ; 

/* 

*  Create  cascade  button  and  connect  to  menu. 

V 

cascade  «  XtVaCreateWidget (name, 
xmCascadeButtonWidgetClass,  parent, 

XmNlabelString,  xmstring, 

XmNsubMenuId,  menu, 

XmNmnemonic,  mnemonic, 

NULL) ; 


//  Parent  for  the  menu. 
//  Widget  name. 

//  Menu  label. 

//  Shortcut  key. 
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/* 

*  Make  this  the  help  menu  which  will  place  it  at  the  far  right. 
*/ 

XtVaSetValues (parent,  XmNmenuHelpWidget,  cascade,  NULL); 

/* 

*  Set  up  menu  choices  for  the  Help  menu. 

*/ 


(void) AddMenuI tern (menu,  "maintenancehelp", 

"Maintenance", 

NULL,  NULL, 

(XtCallbackProc)  helpCB, 

(XtPointer)  &  maintenance_help_message) ; 

(void) AddMenuI tern (menu,  "searchhelp", 

"Search", 

NULL,  NULL,  ‘S', 

(XtCallbackProc)  helpCB, 

(XtPointer)  search_help_message)  ; 

(void)XtVaCreateManagedWidget ("sep",  xmSeparatorWidgetClass,  menu,  NULL); 

(void) AddMenuI tern (menu,  "version", 

"Version", 

NULL,  NULL,  'V, 

(XtCallbackProc)  helpCB, 

(XtPointer)  version_message) ; 

XtManageChild (cascade) ; 


return  menu; 

} 


/* 

*  Add  a  menu  item  to  the  parent,  which  is  assumed  to  be  a  menu  widget. 
*/ 


Widget 

AddMenuItem (Widget  parent, 
char  *name, 
char  *label, 
char  *acc_text, 
char  *acc_key, 
char  mnemonic, 
XtCallbackProc  callback, 
XtPointer  client_data) 

{ 


//  Parent  for  item. 

//  Widget  name. 

//  Item  label. 

//  Accelerator  text. 

//  Accelerator  key. 

//  Shortcut  key. 

//  Callback  for  item 
//  Client  data  for  callback. 


Widget  button; 

XmString  stl  =  XmStringCreateSimple (label) ; 
XmString  st2  =  XmStringCreateSimple (acc_text) ; 


/* 

*  Create  the  push  button,  the  label  and  accelerator  text  are  strings  not 

*  chars 
*/ 


button  =  XtVaCreateManagedWidget (name,  xmPushButtonWidgetClass,  parent, 
XmNlabelString,  stl, 

XmNacceleratorText,  st2, 

XmNaccelerator,  acc_key, 

XmNmnemonic,  mnemonic, 

NULL)  ; 

XtAddCallback (button,  XmNactivateCallback,  callback,  client_data) ; 


XmStringFree (stl) ; 

XmStringFree (st2)  / 

XtManageChild (button)  ; 

return  button; 

} 
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/* 

*  Callback  for  the  help  menu  items  opens  the  progress  display  and  add  the  help 

*  message.  The  data  for  this  callback  is  passed  through  the  client  data  as  a 

*  pointer  to  an  array  of  character  strings.  The  first  string  is  used  as  the 

*  dialog  title.  The  last  string  is  NULL. 

*/ 

static  void 

helpCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) 

{ 

char  **message  =  (char  ** ) client_data; 

/* 

*  Make  sure  that  we  have  a  message  if  not  we  are  done, 

V 

if  (message  !=  NULL) 

{ 

/* 

*  Clear  the  display  and  set  the  dialog  title. 

*/ 

clear_display (^message) ; 

/* 

*  Loop  through  the  message  array  adding  the  strings  to  the  display 
*/ 

for  (char  **c  =  message  +  1;  *c  !=  (char  *)NULL;  C++) 

{ 

display_message (*c) ; 

} 

/* 

*  Make  sure  that  the  we  are  at  the  top  of  the  messages 
*/ 

home_display ( ) ; 

} 


L.  PROMPTDIALOG.H 


/* 

*  $Id:  PromptDialog.h, V  1.1. 1.1  1998/01/14  03:40:05  greg  Exp  $ 

* 

*  PromptDialog.h  —  Software  Base  Search  Interface 

* 

*  Header  file  for  the  GUI  prompt  dialogs. 

* 

*  Naval  Postgraduate  School 

*  January  13,  1998 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 

int  ModalPromptDialog (Widget  parent,  char  *title,  char  ^message); 
void  ModalWarningDialog (Widget  parent,  char  *title,  char  *message) ; 


M.  PROMPTDIALOG.C 


/* 

*  $Id:  PromptDialog.C, V  1.2  1998/01/18  16:35:45  greg  Exp  $ 

★ 

*  PromptDialog.C  —  Software  Base  Search  Interface 

* 
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*  Source  code  for  the  modal  prompt  dialogs . 

★ 

*  Entry  points:  ModalWarningDialog  and  ModalPromptDialog . 

* 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

★ 

*/ 

#include  <Xm/Xm.h> 
tinclude  <Xm/MessageB . h> 

#include  <Xm/Text.h> 


#include  <stdio.h> 
#include  <stdlib.h> 
tinclude  <iostream.h> 


linclude  "Gui.h" 
tinclude  "Utils. h" 


*  The  PROMPT_DATA  structure  is  used  to  pass  data  to  the  callback  routines. 

*  done_with_dialog:  While  true  the  event  loop  will  continue  running.  Setting 

*  this”to  false  allows  the  event  loop  to  exit.  return_value :  Set  by  the 

*  Callback  routine  to  the  modal  dialog  return  value. 

*/ 


struct  PROMPT_DATA 

{ 

int  done_with_dialog; 
int  return_value; 

}; 

/* 

*  Declarations  for  local  functions. 
*/ 


static  void 

okCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

cancelCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data); 


*  Display  a  modal  dialog  with  a  message  for  the  user  then  wait  for  the  user  to 

*  respond  before  allowing  further  program  execution.  Returns  false  if  the  ok 

*  button  is  pressed  and  false  for  the  cancel  button. 

*/ 


int 

ModalPromptDialog (Widget  parent, 
char  *title, 
char  ^message) 

{ 

Widget  dialog; 

Widget  button; 

Arg  args[20]; 

Cardinal  argcount; 

PROMPT_DATA  cdata; 

cdata .done_with_dialog  =  False; 


*  Create  a  question  dialog  box  to  display  the  message  to  the  user. 

*  Customize  the  title,  ok  and  cancel  buttons,  remove  the  help  button,  and 

*  add  callbacks  for  the  ok  and  cancel  buttons. 

*/ 


argcount  =  0; 

SETARG ( args [ argcount ] , 
argcount) ; 


XmNdialogStyle,  XmDIALOG_FULL_APPLICATION_MODAL, 
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dialog  =  XmCreateQuestionDialog (parent,  "sbstext",  args,  argcount); 

Set_Res_String (dialog,  XmNmessageString,  message); 

Set_Res_String (dialog,  XmNdialogTitle,  title); 

Set_Res_String (dialog,  XmNokLabelString,  "Yes"); 

Set_Res_String (dialog,  XmNcancelLabelString,  "No"); 

button  =  XmMessageBoxGetChild (dialog,  XmDIALOG_HELP_BUTTON) ; 

XtUnmanageChild (button) ; 

/* 

*  Set  the  callbaclcs  for  the  OK  and  cancel  buttons  so  the  we  will  get 

*  control  when  the  button  is  pressed. 

*/ 

XtAddCallback (dialog,  XmNokCallback,  (XtCallbackProc)  okCB,  (XtPointer)  &  cdata) ; 
XtAddCallback (dialog,  XmNcancelCallback,  (XtCallbackProc)  cancelCB,  (XtPointer)  & 
cdata)  ; 

XtManageChild (dialog) ; 

/* 

*  Wait  for  a  response  to  the  dialog.  When  the  OK  or  cancel  button  is 

*  pressed  done_with_dialog  will  be  set  true  causing  the  loop  to  terminate. 

*  Return_value  is  also  set  to  the  appropriate  value  in  the  callback. 

*/ 

while  (! cdata . done_with_dialog) 

XtAppProcessEvent (XtWidgetToApplicationContext (dialog) ,  XtIMAll) ; 
return  cdata . re turn_value; 

} 

/* 

*  Display  a  modal  warning  or  error  dialog  with  a  message  for  the  user  then  wait 

*  for  the  user  to  respond  before  allowing  further  program  execution. 

*/ 


void 

ModalWarningDialog (Widget  parent, 
char  *title, 
char  *message) 

{ 

Widget  dialog; 

Widget  button; 

Arg  args [20 ]; 

Cardinal  argcount; 

PROMPT_DATA  cdata; 

cdata. done_with_dialog  =  False; 

/* 

*  Create  a  warning  dialog  box  to  display  the  message  to  the  user. 

*/ 

argcount  =0; 

SETARG(args [argcount] ,  XmNdialogStyle,  XmDIALOG_FULL_APPLICATION_MODAL,  argcount) 

dialog  =  XmCreateWarningDialog (parent,  args,  argcount); 

Set_Res_String (dialog,  XmNmessageString,  message); 

/* 

*  Customize  the  title,  remove  the  ok  and. help  buttons.  Change  the  name  of 

*  the  cancel  button  to  dismiss. 

*/ 


Set_Res_String (dialog,  XmNdialogTitle,  title); 

Set_Res_String (dialog,  XmNcancelLabelString,  "Dismiss"); 

button  =  XmMessageBoxGetChild (dialog,  XmDIALOG_OK_BUTTON) ; 
XtUnmanageChild (button) ; 

button  =  XmMessageBoxGetChild (dialog,  XmDIALOG_HELP_BUTTON) ; 
XtUnmanageChild (button) ; 
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/* 

*  Add  a  callback  for  the  dismiss  (cancel)  button. 
*/ 


XtAddCallback (dialog,  XmNcancelCallback,  (XtCallbackProc)  cancelCB, 
(XtPointer)  &  cdata) ; 

XtManageChild (dialog)  ; 


/* 

*  Wait  for  a  response  to  the  dialog.  When  the  dismiss  button  is  pressed 

*  done_with_dialog  will  be  set  true  causing  the  loop  to  terminate. 

*/ 

while  ( ! cdata . done_with_dialog) 

XtAppProcessEvent (XtWidgetToApplicationContext (dialog) ,  XtIMAll) ; 


/* 

*  Callback  set  the  done_with_dialog  variable  to  true  so  that  the  dialog  will 

*  close.  The  data  or  this  callback  is  passed  through  the  client  data  as  a 

*  pointer  to  a  PROMPT_DATA  structure.  Also  set  return  value  to  false. 

*/ 

static  void 

okCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

PROMPT_DATA  *cptr  =  (PROMPT_DATA  *)  client_data; 

cptr-‘>done_with_dialog  =  True; 
cptr->return_value  -  False; 


/* 

*  Save  as  okCB  but  returns  true 
*/ 

static  void 

cancelCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

PROMPT_DATA  *cptr  =  (PROMPT_DATA  *)  client_data; 

cptr->done_with_dialog  =  True; 
cptr->return_value  =  True; 


N.  SDE.H 


/* 

*  $Id:  SDE.h,v  1.1. 1.1  1998/01/14  03:40:05  greg  Exp  $ 

* 

*  SDE.h  —  Software  Base  Search  Interface 

★ 

*  Header  file  for  the  temporary  syntax  directed  editor.  This  will  be  replaced 

*  by  the  syntax  directed  editor  in  CAPS. 

if 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 

void  SDE(Widget  parent,  char  **filename,  char  **string) ; 
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O.  SDE.C 


/* 


*  $Id:  SDE.C, V  1.3  1998/01/18  16:35:45  greg  Exp  $ 

* 

*  SDE.C  —  Software  Base  Search  Interface 

* 

*  Source  code  for  the  temporary  "Syntax  Directed  Editor".  The  functionality 

*  that  is  supplied  by  SDE  will  be  replaced  by  the  Syntax  directed  Editor  in 

*  CAPS.  SDE  is  a  simple  editor  and  not  a  real  syntax  directed  editor. 

*  Creating  a  functional  Syntax  Directed  Editor  is  beyond  the  scope  of  this 

*  Thesis. 

* 

*  Entry  points:  SDE. 

* 

*  Naval  Postgraduate  School 

*  January  11,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 


tinclude 

#include 

tinclude 

tinclude 

tinclude 

tinclude 

tinclude 


<Xm/Xm.h> 
<Xm/Text .h> 
<Xm/Label .h> 
<Xm/Form.h> 
<Xm/PushB.h> 
<Xm/RowColumn . h> 
<Xm/Separator . h> 


tinclude  "Gui.h" 
tinclude  "SearchDialog.h" 
tinclude  "Menu.h" 
tinclude  "Callbacks .h" 
tinclude  "Utils. h" 
tinclude  "PromptDialog .h" 
tinclude  "SDE.h" 


tdefine  EDITOR_RUNNING  ’r’ 
tdefine  EDITOR_DONE  'd' 
tdefine  EDITOR_CANCELED  ’c' 

/* 

*  Declarations  for  local  functions. 
*/ 


static  void 

cutCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

copyCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

pasteCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

okCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 


static  void 

cancelCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

closeCB (Widget  widget,  XtPointer  client^data,  XtPointer  call_data) ; 
static  void 

exitCB (Widget  widget,  XtPointer  client^data,  XtPointer  call_data) ; 


*  A  simple  text  editor  for  making  changes  to  the  PSDL  query/spec.  The 

*  functionality  that  is  supplied  by  this  editor  will  be  replaced  by  the  CAPS 

*  Syntax  Directed  Editor.  The  interface  to  the  CAPS  SDE  was  unknown  at  the 

*  time  that  this  editor  was  written  so  some  modifications  to  other  routines 
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may  be  necessary. 


V 


void 

SDE (Widget  parent, 

char  **filename, 
char  **string) 


Widget  dialog; 

Widget  ok_btn; 

Widget  cancel_btn/ 
Widget  query_text; 
Widget  menubar; 

Widget  filemenu; 
Widget  editmenu; 
Widget  filename_text; 
Widget  label; 


Arg  args [20] ; 
Cardinal  n; 
XmString  xmstring; 
char  *title; 


*  The  variable  editor_state  is  used  to  determine  when  to  exit  the  event 

*  loop.  It  has  three  states  running,  done,  and  canceled.  The  initial  state 

*  is  running.  When  the  user  presses  the  OK  or  cancel  button  the  state  is 

*  changed  and  the  event  loop  will  exit. 

*/ 

static  char  editor_state; 

/* 

*  The  variable  callback_data  is  used  to  pass  data  to  the  file  callbacks. 

*/ 

static  FILEDLG_DATA  callback_data; 

/* 

*  Create  the  editors  dialog  box 
*/ 


title  =  "SD  Editor"; 
n  =  0; 

SETARG (args [n] ,  XmNautoUnmanage,  False,  n); 

SETARG (args [n] ,  XmNwidth,  DIALOG_WIDTH,  n); 

SETARG (args [n] ,  XmNheight,  DIALOG_HEIGHT  /  2,  n) ; 

SETARG (args [n] ,  XmNtitle,  title,  n) ; 

SETARG (args [n] ,  XmNiconName,  title,  n) ; 

dialog  =  XmCreateFormDialog (parent,  "sbsdialog",  args,  n) ; 


*  save  the  dialog  widget  for  the  file  callback. 

*/ 

callback_data. parent  =  dialog; 

/* 

*  Create  menubar  with  file  and  edit  menus . 

*/ 

n  =  0; 

SETARG (args [n] ,  XmNtopAttachment,  XmATTACH_FORM,  n); 
SETARG ( args [n] ,  XmNleftAttachment,  XmATTACH_FORM,  n) ; 
SETARG (args [n] ,  XmNrightAttachment,  XmATTAC REFORM,  n) ; 

menubar  =  XmCreateMenuBar (dialog,  "menubar”,  args,  n) ; 

XtManageChild (menubar) ; 

filemenu  =  CreateMenu (menubar,  "sbsmenu”,  "File”,  'F'); 
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(void) AddMenuItem{filemenu,  "open”, 

"Open", 

"Ctrl+0",  "Ctrl<Key>o",  'O', 

(XtCallbackProc)  openCB, 

(XtPointer)  &  callback_data) / 

(void) AddMenuItem(filemenu,  "edit", 

"Edit", 

"Ctrl+E",  "CtrX<Key>e",  'E', 

(XtCallbackProc)  editCB, 

(XtPointer)  &  callback_data); 

(void)XtVaCreateManagedWidget ("sep",  xmSeparatorWidgetClass,  filemenu,  NULL) 

(void) AddMenuItem ( filemenu,  "save" , 

"Save  ", 

"Ctrl+S",  "Ctrl<Key>s",  'S’, 

(XtCallbackProc)  saveCB, 

(XtPointer)  &  callback_data) ; 

(void) AddMenuItem ( filemenu,  "saveas " , 

"Save  As", 

"Ctrl+A",  "Ctrl<Key>a",  'A', 

(XtCallbackProc)  saveasCB, 

(XtPointer)  &  callback_data); 

(void) XtVaCreateManagedWidget ("sep",  xmSeparatorWidgetClass,  filemenu,  NULL) 

(void) AddMenuI tern ( filemenu,  "close", 

"Close", 

"Ctrl+W",  "Ctrl<Key>w",  'C, 

(XtCallbackProc)  closeCB, 

(XtPointer)  dialog); 

(void) AddMenuItem (filemenu,  "exit", 

"Exit", 

"Ctrl+Q",  "Ctrl<Key>Q",  'x', 

(XtCallbackProc)  exitCB, 

(XtPointer)  dialog) ; 

editmenu  =  CreateMenu (menubar,  "edit",  "Edit",  'EM; 

(void) AddMenuI tern (editmenu,  "cut", 

"Cut", 

"Ctrl+X",  "Ctrl<Key>x",  'T', 

(XtCallbackProc)  cutCB, 

(XtPointer)  &  callback_data) ; 

(void) AddMenuItem(editmenu,  "copy", 

"Copy", 

"Ctrl+C",  "Ctrl<Key>c",  'C, 

(XtCallbackProc)  copyCB, 

(XtPointer)  &  callback_data) ; 

(void) AddMenuItem (editmenu,  "paste", 

"Paste", 

"Ctrl+V",  "Ctrl<Key>v",  'P', 

(XtCallbackProc)  pasteCB, 

(XtPointer)  &  callback_data) ; 


/* 

*  Create  a  text  box  for  the  file  name  so  that  the  user  will  know  which 

*  file  they  are  editing. 

*/ 


xmstring  =  XmStringCreateSimple  ("File  name:"); 
label  =  XtVaCreateManagedWidget ("sbslabel", 
xmLabelWidgetClass,  dialog, 

XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_WIDGET, 
XmNtopWidget,  menubar, 

XmNtopOf f set,  5, 

XmNle ft Attachment,  XmATTACH_FORM, 
XmNleftOffset,  5, 
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XmN  right  Attachment,  XniATTACH_NONE, 
NULL)  ; 

XtManageChilcK  label) ; 

XmStringFree (xmstring) ; 


filename_text  =  XtVaCreateManagedWidget ( "sbstext" , 
xmTextWidgetClass,  dialog, 

XmNeditMode,  XmSINGLE_LINE_EDIT, 

XmNeditable,  True, 

XmNshadowThic)cness,  1, 

XmNmarginHeight ,  2, 

XmNcursorPositionVisible,  True, 

XmNtopAttachment ,  XitiATTACH_WIDGET, 

XmNtopWidget,  menubar, 

XmNtopOf fset,  5, 

XmNle ft Attachment,  XmATTACH_WIDGET, 
XmNleftWidget,  label, 

XmNleftOf fset,  5, 

XmNrightAttachment,  XmATTACH__FORM, 
XmNrightOffset,  5, 

NULL); 


*  Save  the  filename  text  widget  for  use  in  the  file  callbaclcs. 
*/ 


callback_data.fname_text  f ilename_text; 

/* 

*  If  their  is  an  initial  file  name  display  it  for  the  usr  to  see. 

*/ 

if  (* filename  !=  NULL) 

XmTextSetString {filename_text,  *filename) ; 

XtManageChild{filename_text) ; 

/* 

*  Setup  the  ok  button  before  the  query  text  widget  so  that  the  bottom  of 

*  the  query  text  widget  can  be  attached  to  the  ok  button. 

*/ 


ok_btn  =  XtVaCreateManagedWidget ("OK”, 
xmPushButtonWidgetClass,  dialog, 

XmNwidth,  BUTTON_WIDTH, 

XmNheight,  BUTTON^HEIGHT, 

XmNle ft Attachment,  XmATTACH_FORM, 

XmNleftOf fset,  20, 

XmNrightAttachment,  XmATTACH_NONE, 
XmNtopAttachment,  XmATTACH_NONE, 
XmNbottomAttachment,  XmATTACH_FORM, 
XmNbottomOf fset,  10, 

NULL)  ; 

XtAddCallback (ok_btn, 

XmNactivateCallback, 

(XtCallbackProc)  okCB, 

(XtPointer)  &  editor_state) ; 

XtManageChild(ok_btn) ; 

cancel_btn  =  XtVaCreateManagedWidget ( "Cancel” , 
XmPushButtonWidgetClass,  dialog, 

XmNwidth,  BUTTON_WIDTH, 

XmNheight,  BUTTON^HEIGHT, 

XmNle ftAttachment,  XmATTACH^WIDGET, 
XmNleftWidget,  ok_btn, 

XmNleftOffset,  10, 

XmNrightAttachment,  XmATTACH_NONE, 
XmNtopAttachment,  XmATTACH_NONE, 
XmNbottomAttachment,  XraATTACH_FORM, 
XmNbottomOf fset,  10, 
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NULL) ; 


XtAddCallback {cancel_btn, 
XmNactivateCallback, 
(XtCallbackProc)  cancelCB, 
(XtPointer)  &  editor_state) ; 

XtManageChild(cancel_btn) ; 

/* 

*  Create  the  text  edit  widget 
*/ 


n  -  0; 

SETARG(args [n] , 
SETARG (args [n]  , 
SETARG{args [n] , 
SETARG (args [n] , 
SETARG (args [n]  , 
SETARG (args [n]  , 
SETARG (args [n] , 
SETARG (args [n]  , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 


XmNeditMode,  XiinMULTI_LINE_EDIT,  n)  ; 

XmNt op Attachment,  XmATTACH_WIDGET,  n) ; 
XmNtopWidget,  filename_text,  n) ; 

XmNtopOf fset,  5,  n) ; 

XmNle ft Attachment,  XraAT TAG REFORM,  n) ; 
XmNleftOffset,  5,  n) ; 

XmNrightAttachment,  XmATTACH_FORM,  n) ; 
XmNrightOf f set,  5,  n); 

XmNbottomAttachment,  XmATTACH_WIDGET,  n) ; 
XmNbottomWidget,  ok_btn,  n) ; 

XmNbottomOf fset,  5,  n) ; 


query_text  =  XmCreateScrolledText (dialog,  "sbstext",  args,  n) ; 


/* 

*  Save  the  text  widget  for  the  file  callbacks. 
*/ 


callback_data. text  =  query_text; 

XtManageChild(query_text) ; 

/* 

*  If  we  have  an  initial  file  name  try  to  load  the  text  from  it. 
*/ 


if  (^filename) 

{ 

char  *text; 

if  (LoadFile (*filename,  &text)  !=  -1) 

{ 

XmTextSetString (query_text,  text) ; 
XtFree (text) ; 

} 

} 

XtManageChild (dialog) ; 

/* 

*  Wait  for  the  editor  to  exit. 

*/ 


editor_state  =  EDITOR_RUNNING; 
while  (editor_state  ==  EDITOR_RUNNING) 

XtAppProcessEvent (XtWidgetToApplicationContext (dialog) ,  XtIMAll) ; 

/* 

*  If  the  user  did  not  cancel  the  editor  return  the  text  and  file  name 
*/ 

if  {editor_state  ==  EDITOR_DONE) 

{ 

*string  =  XmTextGetString (query_text) ; 
if  (**string  ==  ' \0 ' ) 

{ 

XtFree (^string) ; 

♦string  =  NULL; 

} 

♦filename  -  XmTextGetString ( filename_text) ; 
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if  (**filenaine  ==  '  \0  ' ) 

{ 

XtFree (*filename) ; 

*  filename  =  NULL; 

} 

} 

else 

{ 

*string  =  NULL; 

} 

if  (XtlsManaged (dialog) ) 
XtUnmanageChild (dialog)  ; 


*  Cut  callback  that  copies  the  primary  selected  text  to  the  clipboard  and  then 

*  deletes  the  primary  selected  text. 

*/ 


static  void 

cutCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

^  Widget  text  =  { (FILEDLG_DATA  *)  client_data) “>text ; 

if  (text  !=  NULL) 

{ 

XmTextCut (text, 

XtLastTimestampProcessed(XtDisplay (text) ) ) ; 

} 

} 

/* 

*  Copy  callback  that  copies  the  primary  selected  text  to  the  clipboard 
*/ 


static  void 

copyCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

^  Widget  text  -  (  (FILEDLG__DATA  *)  client_data) ->text; 

if  (text  !-  NULL) 

{ 

XmTextCopy ( text , 

XtLastTimestampProcessed (XtDisplay (text) ) ) ; 

} 

} 

/*  ... 

*  Paste  callback  that  inserts  the  clipboard  selection  at  the  insertion  cursor. 

*/ 

static  void 

pasteCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

^  Widget  text  =  ( (FILEDLG_DATA  *)  client_data) ->text; 

if  (text  !=  NULL) 

{ 

XmTextPaste (text) ; 

} 

} 


/'* 

*  Ok  callback  closes  the  editor  and  returns  the  text  to  the  calling  program. 
*/ 


78 


static  void 

okCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

char  ^running  =  (char  * ) client_data; 

* running  =  EDITOR_DONE; 

} 

/* 

*  Cancel  callback  closes  the  editor,  the  text  is  lost. 

*/ 

static  void 

cancelCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

char  ^running  =  (char  * ) client_data; 

^running  =  EDITOR_CANCELED; 

} 

/* 

*  Close  the  editor  but  give  the  user  a  chance  to  go  back  to  the  editor 
*/ 

static  void 

closeCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

Widget  parent  =  (Widget)  client_data; 

if  (ModalPromptDialog (parent,  "Warning",  "Close  editor?")) 
return; 

if  (XtlsManaged (parent) ) 

XtUnmanageChild (parent) ; 

} 

/* 

*  Exit  the  program  but  give  the  user  a  chance  to  go  back  to  the  editor 
*/ 

static  void 

exitCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

Widget  parent  =  (Widget)  client_data; 

if  (ModalPromptDialog (parent,  "Warning",  "Exit  program?")) 
return; 

exit  (0) ; 

} 

P.  SEARCHDIALOG.H 


/* 

*  $Id:  SearchDialog.h, V  1.2  1998/01/18  18:50:09  greg  Exp  $ 

★ 

*  SearchDialog.h  —  Software  Base  Search  Interface 

* 

*  Header  file  for  the  search  dialog. 

* 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

★ 

*/ 
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void 

SearchDialog (Widget  parent,  XtCallbackProc  callback) ; 


char  * 

ModalSearchDialog (Widget  parent) ; 


Q.  SEARCHDIALOG.C 

/* 

*  $Id:  SearchDialog. C,v  1.6  1998/01/18  18:50:09  greg  Exp  $ 

★ 

*  SearchDialog. C  —  Software  Base  Search  Interface 

★ 

*  Source  code  for  the  CAPS  software  base  search  dialog.  This  dialog  is  the 

*  interface  to  the  ADA  software  base  search  that  uses  profile  filtering  and 

*  signature  matching.  The  dialog  facilities  the  input  of  a  PSDL  specification 

*  that  is  used  as  a  query  in  the  search.  The  output  is  displayed  and  the  user 

*  can  select  the  desired  component, 

* 

*  Entry  points:  SearchDialog,  ModalSearchDialog. 

★ 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 

#include  <stdio.h> 

#include  <stdlib.h> 
finclude  <iostream.h> 

#include  <sys/types .h> 
finclude  <sys/stat.h> 

finclude  <Xm/Xm.h> 
finclude  <Xm/Text.h> 
finclude  <Xm/Label.h> 
finclude  <Xm/ScrolledW.h> 
finclude  <Xm/Form.h> 
finclude  <Xm/PushB.h> 
finclude  <Xm/ToggleB . h> 
finclude  <Xm/PanedW .h> 
finclude  <Xm/RowColumn. h> 
finclude  <Xm/Separator .h> 
finclude  <Xm/FileSB.h> 

finclude  "Gui.h" 
finclude  "SearchDialog. h" 
finclude  "PromptDialog.h" 
finclude  "Menu.h" 
finclude  "SDE.h" 
finclude  "DisplayProgress .h" 
finclude  "Callbacks .h" 
finclude  "Utils. h" 

/* 

*  Names  for  files  used  as  buffers  to  pass  the  search  output  to  the  interface. 
*/ 

fdefine  PF_FILE_BUFFER  "  .  . /IO__Profile_Filtering .buf  " 
fdefine  SM  FILE__BUFFER  "  .  . /IO_Signature_Matching .buf " 


*  A  simple  linked  list  to  keep  track  of  which  file  name  is  associated  with 

*  which  toggle  button.  This  makes  it  easier  to  free  memory  when  it  is  no 

*  longer  needed. 

*/ 

struct  MATCH_LIST 

{ 
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char  *filename; 
Widget  tbutton; 
MATCH  LIST  *next; 


/* 

*  The  SEARCH_DATA  structure  is  used  to  pass  data  to  the  callback  routines. 

*  parent:  widget  to  use  as  the  parent  for  dialog  construction. 

*  fname_text:  text  widget  for  file  name . display . 

*  prank_text:  text  widget  of  the  profile  rank. 

*  frank_text:  text  widget  of  the  signature  rank. 

*  sw_parent:  signature  window  parent. 

*  callback:  Callback  to  pass  the  selected  component  name  to. 

*  Matches:  linked  list  of  toggle  buttons  and  file  names  that  the  user  can 

*  choose  from. 

*/ 

struct  SEARCH_DATA 

{ 

Widget  parent; 

Widget  fname_text; 

Widget  prank_text; 

Widget  srank_text; 

Widget  sw_parent; 

XtCallbackProc  callback; 

MATCH_LIST  *matches; 

}; 


/* 

*  The  toggle  button  uses  selected_component  as  the  currently  selected  button. 

*  This  is  also  the  return  value  for  the  ok  callback.  So  to  make  things  less 

*  complicated  just  make  it  global. 

*/ 

static  MATCH_LIST  *selected_component  =  NULL; 

/* 

*  The  ADA  code  will  call  profile_filtering_doneCB  when  the  profile  filtering 

*  is  completed.  Trying  to  pass  profile_text  as  an  argument  complicated  the  ADA 

*  interface  so  make  it  global  to  the  search  dialog. 

*/ 

static  Widget  profile_text; 

/* 

*  Save  these  to  keep  the  users  changes  for  next  time. 

*/ 


static  char  *save_query_filename  =  NULL; 
static  float  min_profile_rank  =  1.00; 
static  float  min_signature_rank  =  1.00; 

/* 

*  Used  by  the  modal  search  dialog.  done_with_dialog  while  true  the  event  loop 

*  will  continue  running.  Setting  this  to  false  allows  the  event  loop  to  exit. 

*  return_value  is  set  by  the  callback  routine  to  the  modal  dialog  return 

*  value . 

*/ 


static  int  done_with_dialog; 
static  char  *return_value; 

/* 

*  Declarations  for  local  functions. 

*/ 

static  int 

remove_nl (char  *cptr) ; 
static  Widget 

fgetlabel (Widget  parent,  Widget  previous,  FILE  *  stream); 
static  void 

clear_search (SEARCH_DATA  *  sdata) ; 
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static  void 

closeCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

exitCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data)/ 
static  void 

cancelCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data); 
static  void 

okCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
static  void 

togglebuttonCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data) ; 
void 

prof ile_f iltering_doneCB ( ) ; 


static  void 

do_searchCB (Widget  widget,  XtPointer  client_data,  XtPointer  call_data); 


/* 

*  Declaration  for  the  "ADA  export"  search  routine. 
*/ 

extern  "C"  sb_search (char  *sbroot, 
char  *qfname, 
float  *mprank, 
float  *msrank, 
char  *pf_name, 
char  *sm  name) ; 


/* 

*  Display  the  software  base  search  modal  dialog.  Returns  selected  component 

*  name. 

*/ 


char  * 

ModalSearchDialog (Widget  parent) 

{ 

done_with_dialog  =  False; 

SearchDialog (parent,  NULL); 

/* 

*  Wait  for  a  response  to  the  dialog.  When  the  OK  or  cancel  button  is 

*  pressed  done_with_dialog  will  be  set  true  causing  the  loop  to  terminate. 

*  Return_value  is  also  set  to  the  appropriate  value  in  the  callback. 

*/ 

done_with_dialog  =  False; 
while  ( ! done_with_dialog) 

XtAppProcessEvent (XtWidgetToApplicationContext (parent) ,  XtIMAll) ; 
return  return_value; 

} 

/* 

*  Display  the  software  base  search  dialog. 

*/ 

void 

SearchDialog (Widget  parent, 

XtCallbackProc  callback) 

{ 

Widget  dialog_window; 

Widget  scrolled_query_window; 

Widget  query_text; 

Widget  query_fname_text ; 

Widget  scrolled_profile_window; 

Widget  profile_rank_text; 
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Widget  signature_rank_text ; 

Widget  scrolled_signature_window; 

Widget  signature_window; 

/* 

*  The  following  static  variables  are  used  by  callbacks  after  SearchDialog 

*  returns . 

*/ 

static  FILEDLG_DATA  f iledlg_data;  //  file  callbacks 

static  SEARCH_DATA  search_data;  //  Search  results 

Widget  caps_label; 

Widget  profile_label; 

Widget  signature_label; 

Widget  previous; 

Widget  query__label; 

Widget  search_btn; 

Widget  ok_btn; 

Widget  cancel_btn; 

Widget  menubar; 

Widget  querymenu; 

Widget  searchmenu; 

Widget  helpmenu; 

char  lOBuffer [256]  ; 
char  *title; 

Arg  args[20]; 

Cardinal  n; 

XmString  xmstring; 

/* 

*  Start  with  no  match 
*/ 

search_data .matches  =  NULL; 
search_data . callback  =  callback; 

/* 

*  Create  the  dialog  box. 

*/ 


title  =  "Software  Base  Search"; 
n  =  0; 

SETARG (args [n] ,  XmNautoUnmanage,  False,  n) ; 

SETARG(args [n] ,  XmNwidth,  DIALOG_WIDTH,  n) ; 

SETARG (args [n] ,  XmNheight,  DIALOG_HEIGHT,  n) ; 

SETARG (args [n] ,  XmNnoResize,  True,  n); 

SETARG (args [n] ,  XmNtitle,  title,  n) ; 

SETARG ( args [n] ,  XmNiconName,  title,  n)  ; 

dialog_window  =  XmCreateFormDialog (parent,  "sbsdialog",  args,  n) ; 
/* 

*  Save  the  dialog  widget  for  later  use. 

*/ 

search__data  .parent  =  dialog__window; 
filedlg_data. parent  =  dialog_window; 

initilize_display (parent) ; 

/* 

*  Create  menubar 
*/ 


n  =  0; 

SETARG ( args [n] ,  XmN top Attachment,  XmATTACH_FORM,  n); 
SETARG (args [n] ,  XmNle ft Attachment,  XmATT AC REFORM,  n) ; 
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SETARG  (args  [n]  ,  XmNrightAttachiiient,  XinATTACH_FORM,  n)  ; 
menubar  =  XmCreateMenuBar  (dialog_window,  ’’sbsmenubar",  args,  n)  ; 
previous  =  menubar; 

XtManageChild (menubar ) ; 

/* 

*  Create  query  menu.  Callbacks  for  this  menu  are  in  Callbacks, C. 

*/ 

querymenu  =  CreateMenu (menubar,  "sbsmenu",  "Query”,  'Q'); 

(void) AddMenuI tern (querymenu,  "new", 

"New", 

"Ctrl+N",  "Ctrl<Key>n",  'N', 

(XtCallbackProc)  newCB, 

(XtPointer)  &  f iledlg_data) ; 

( void ) AddMenuI tern ( que rymenu ,  "open " , 

"Open", 

"Ctrl+0",  "Ctrl<Key>o",  'O’, 

(XtCallbackProc)  openCB, 

(XtPointer)  &  filedlg_data) ; 

(void) AddMenuI tern (que rymenu,  "edit", 

"Edit", 

"Ctrl+E",  "Ctrl<Key>e",  'E', 

(XtCallbackProc)  editCB, 

(XtPointer)  &  filedlg_data) ; 

(void) XtVaCreateManagedWidget ( "sep",  xmSeparatorWidgetClass,  querymenu,  NULL) 

( void ) AddMenuI tern ( querymenu ,  " s ave " , 

"Save", 

"Ctrl+S",  "Ctrl<Key>s",  'S', 

(XtCallbackProc)  saveCB, 

(XtPointer)  &  filedlg_data) ; 

(void) AddMenuI tern (que rymenu,  "saveas", 

"Save  As", 

"Ctrl+A",  "Ctrl<Key>a",  'A', 

(XtCallbackProc)  saveasCB, 

(XtPointer)  &  f iledlg_data) ; 

(void) XtVaCreateManagedWidget ("sep",  xmSeparatorWidgetClass,  querymenu,  NULL) 

(void) AddMenuI tern (que rymenu,  "close", 

"Close", 

"Ctrl+W",  "Ctrl<Key>w",  'C, 

(XtCallbackProc)  closeCB, 

(XtPointer)  &  search_data) ; 

(void) AddMenuI tern (que rymenu,  "exit", 

"Exit", 

"Ctrl+Q",  "Ctrl<Key>Q",  'x', 

(XtCallbackProc)  exitCB, 

(XtPointer)  NULL) ; 


/* 

*  Create  the  search  menu.  Callbacks  are  implemented  locally 
*/ 

searchmenu  =  CreateMenu (menubar ,  "sbsmenu",  "Search",  ’S'); 

(void) AddMenuItem(searchmenu,  "search", 

"Start", 

"Ctrl+T",  "Ctrl<Key>t",  't', 

(XtCallbackProc)  do_searchCB, 

(XtPointer)  &  search_data) ; 


/* 

*  Create  Help  menu. 
*/ 
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helpmenu  =  CreateHelpMenu (menubar,  "sbsmenu",  "Help",  'H'); 

xmstring  =  XmStringCreateSimple ( "CAPS  Software  Base  Search"); 
caps_label  =  XtVaCreateManagedWidget ( "sbslabel", 
xmLabelWidgetClass,  dialog_window, 

XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_WI DGET , 

XmNtopWidget,  previous, 

XmNtopOf f set,  5, 

XmNbottomAttachment,  XmATTACH_NONE , 

XmNleftAttachment,  XmATTACH_POSITION, 

XmNleftPosition,  35, 

XmNright Attachment,  XmATT ACH_NONE , 

NULL)  ; 

XmStringFree (xmstring) ; 

/* 

*  Query_label  and  query_fname_text  display  the  current  query  file  name  for 

*  the  user 
*/ 


previous  =  caps_label; 

xmstring  =  XmStringCreateSimple ( "PSDL  Query:"); 
query_label  =  XtVaCreateManagedWidget ( "sbslabel", 
xmLabelWidgetClass,  dialog_window, 

XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_WI DGET , 

XmNtopWidget,  previous, 

XmNtopOff set,  5, 

XmNleftAttachment,  XmATTACH_POSITION, 
XmNleftPosition,  15, 

NULL)  ; 

XmStringFree (xmstring) ; 

query_fname_text  =  XtVaCreateManagedWidget ( "sbstext", 
xmTextWidgetClass ,  dialog_window, 

XmNeditMode,  XmSINGLE_LINE_EDIT, 

XmNeditable,  True, 

XmNshadowThickness,  1, 

XmNmarginHeight,  2, 

XmNcursorPositionVisible,  True, 

XmNtopAttachment,  XmATTACH_WIDGET, 

XmNtopWidget,  previous, 

XmNtopOffset,  5, 

XmNleftAttachment,  XmATTACH_WI DGET , 

XmNleftWidget,  query_label, 

XmNleftOffset,  5, 

XmNrightAttachment,  XmATTACH_FORM, 

XmNrightOf fset,  10, 

NULL)  ; 


/* 

*  Save  the  widget  so  that  the  file  and  search  callbacks  can  change  the  name 

*  when  the  user  enters  a  new  one. 

*/ 


filedlg_data . fname_text  =  query_fname_text; 
search_data . fname_text  =  query_fname_text; 

/* 

*  This  callback  will  update  the  file  name  and  query  text  if  the  user  types 

*  a  return  in  the  fname  text  box, 

*/ 


XtAddCallback (query_fname_text,  XmNactivateCallback, 
(XtCallbackProc)  textchangedCB, 

(XtPointer)  &  filedlg_data) ; 

previous  =  query_label; 

XtManageChild(query_fname_text) ; 

/* 
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*  Setup  scrolled  window  to  display  query  text. 
*/ 


scrolled_query_window  =  XtVaCreateManagedWidget ( "sbswindow" , 
xmScrolledWindowWidgetClass ,  dialog_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO_WINDOW_HEIGHT, 

XmNle ft Attachment,  XmATTACH_FORM, 

XmNright Attachment,  XmATTACH_FORM,  ‘ 

XmNtopAttachment,  XmATTACH_WIDGET, 

XmNtopWidget,  query__label, 

XmNtopOf fset,  5, 

XmNbottomAttachment,  XmATTACH_NONE , 

XmNresizable,  True, 

XmNleftOf f set,  5, 

XmNrightOffset,  5, 

XraNbottomOf f set ,  5, 

XmNscrollingPolicy,  XmAUTOMATIC, 

XmNscrollBarDisplayPolicy,  XmSTATIC, 

XmNscrolledWindowMarginWidth,  5, 

XmNscrolledWindowMarginHeight,  5, 

XmNscrollVertical,  False, 

XmNscrollHorizontal,  True, 

NULL)  ; 

previous  =  scrolled_query__window; 

query_text  =  XtVaCreateManagedWidget ( "sbstext" , 
xmTextWidgetClass,  scrolled_query_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO_WINDOW_HEIGHT, 

XmNeditMode,  XinMULTI_LINE_EDIT, 

XmNshadowThickness,  0, 

XmNmarginHeight,  0, 

XmNscrollHorizontal,  False, 

XmNeditable,  False, 

XmNtraversalOn,  False, 

XmNcursorPositionVisible,  False, 

NULL)  ; 

/* 

*  Save  the  widget  so  that  the  query  text  can  be  updated  when  the  user 

*  changes  the  file  name  or  edits  that  text 
*/ 


filedlg_data . text  =  query_text; 

XmScrolledWindowSetAreas ( scrolled_query_window, 

(Widget)  NULL, 

(Widget)  NULL, 
query_text) ; 

XtManageChild(query_text) ; 

/* 

*  If  the  user  is  restarting  the  dialog  try  to  use  the  file  name  that  was 

*  entered 
*/ 

if  (save_query_filename  !=  NULL) 

{ 

char  *text; 

XmTextSetString (query_fname_text,  save_query_filename) ; 

if  (LoadFile {save_query_filename,  &text)  !~  -1  &&  text  !=  NULL) 

{ 

XmTextSetString (query_text,  text) ; 

XtFree (text) ; 

} 

XtFree (save_query_filename) ; 

} 

/* 
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*  Create  a  text  box  for  the  profile  rank.  This  is  where  the  rank  is  stored 

*  so  that  the  user  can  make  changes  before  running  the  search. 

*/ 

xmstring  =  XmStringCreateSimple ( "Profile  Filtering  Minimum  Rank:”); 

profile_label  =  XtVaCreateManagedWidget ( "sbslabel” , 
xmLabelWidgetClass,  dialog_window, 

XmNlabelString,  xmstring, 

XmNtopAt  tachment ,  XinATTACH_WI  DGET , 

XmNtopWidget,  previous, 

XmNtopOf f set,  5, 

XmNleftAttachment,  XmATTACH_POSITION, 

XmNleftPosition,  15, 

NULL)  ; 

XmStringFree (xmstring) ; 

sprintf (lOBuf fer,  "%.2f",  min_profile_rank) ; 

profile_rank_text  =  XtVaCreateManagedWidget { "sbstext”, 
xmTextWidgetClass,  dialog_window, 

XmNeditMode,  XmSINGLE_LINE_EDIT, 

XmNeditable,  True, 

XmNshadowThickness,  1, 

XmNmarginHeight,  2, 

XmNcolumns,  5, 

XmNcursorPositionVisible,  True, 

XmNtopAt tachment,  XmATTACH_WIDGET, 

XmNtopWidget,  previous, 

XmNtopOf fset,  5, 

XmNleftAttachment,  XmATTACH_WIDGET, 

XmNleftWidget,  profile_label, 

XmNleftOf f set,  5, 

NULL)  ; 

/* 

*  Save  the  widget  so  that  the  search  callbacks  can  get  the  profile  rank 

*  when  the  user  runs  the  search. 

*/  . 

search_data .prank_text  =  profile_rank_text ; 

previous  =  profile_label; 

XmTextSetString {profile_rank_text,  lOBuffer) ; 

XtManageChild (prof ile_rank_text ) ; 

/* 

*  Create  a  scrolled  window  for  the  profile  filtering  results . 

*/ 

scrolled_prof ile_window  -  XtVaCreateManagedWidget ( " sbswindow” , 
xmScrolledWindowWidgetClass ,  dialog_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO__WINDOW__HEIGHT, 

XmNleftAttachment,  XmATTACH_FORM, 

XmNright Attachment,  XmATTACH_FORM, 

XmNtopAt  tachment,  XmATTACH__WI  DGET , 

XmNtopWidget,  profile_label, 

XmNtopOf fset,  5, 

XmNbottomAttachment,  XinATTACH_NONE, 

XmNresizable,  True, 

XmNleftOffset,  5, 

XmNrightOf fset,  5, 

XmNbottomOf fset,  5, 

XmNscrollingPolicy,  XmAUTOMATIC, 

XmNscrollBarDisplayPolicy,  XmSTATIC, 

XmNscrolledWindowMarginWidth,  5, 

XmNscrolledWindowMarginHeight,  5, 

XmNscrollVertical,  False, 

XmNscrollHorizontal,  True, 

NULL); 

previous  -  scrolled_profile_window; 

profile_text  =  XtVaCreateManagedWidget ( "sbstext”, 
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xmTextWidgetClass,  scrolled_profile_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO_WINDOW_HEIGHT, 

XmNeditMode,  XmMULTI_LINE_EDIT, 

XmNshadowThickness,  0, 

XmNmarginHeight,  0, 

XmNscrollHorizontal,  False, 

XmNeditable,  False, 

XmNtraversalOn,  False, 

XmNcursorPositionVisible,  False, 

NULL) ; 

XmScrolledWindowSetAreas ( scrolled_prof ile_window, 

(Widget)  NULL, 

(Widget)  NULL, 
profile_text) ; 

XtManageChild (profile_text) ; 

/* 

*  Create  a  text  box  for  the  signature  rank.  This  is  where  the  rank  is 

*  stored  so  that  the  user  can  make  changes  before  running  the  search. 

*/ 

xmstring  =  XmStringCreateSimple ( "Signature  Matching  Minimum  Rank:”); 
signature_label  -  XtVaCreateManagedWidget ("sbslabel”, 
xmLabelWidgetClass ,  dialog_window, 

XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_WIDGET, 

XmNtopWidget,  previous, 

XmNtopOffset,  5, 

XmNleftAttachment,  XmATTACH_POSITION, 

XmNleftPosition,  15, 

NULL) ; 

XmStringFree (xmstring) ; 

sprintf (lOBuf fer,  ”%.2f",  min_signature_rank) ; 

signature_rank_text  -  XtVaCreateManagedWidget ("sbstext", 
xmTextWidgetClass ,  dialog_window, 

XmNeditMode,  XmSINGLE_LINE_EDIT, 

XmNeditable,  True, 

XmNshadowThickness,  1, 

XmNmarginHeight,  2, 

XmNcolumns,  5, 

XmNcursorPositionVisible,  True, 

XmNtopAttachment,  XmATTACH^WIDGET, 

XmNtopWidget,  previous, 

XmNtopOffset,  5, 

XmNleftAttachment,  XmATTACH_WI DGET , 

XmNleftWidget,  signature__label, 

XmNleftOffset,  5, 

NULL) ; 

/* 

*  Save  the  widget  so  that  the  search  callbacks  can  get  the  signature  rank 

*  when  the  user  runs  the  search. 

*/ 

search_data . srank_text  =  signature_rank_text ; 
previous  =  signature_label; 

XmTextSetString (signature_rank_text,  lOBuffer) ; 

XtManageChild {signature_rank_text) ; 

/* 

*  Create  a  scrolled  window  for  the  profile  filtering  results. 

*/ 

scrolled_signature_window  -  XtVaCreateManagedWidget ( "sbswindow”, 
xmScrolledWindowWidgetClass,  dialog_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO_WINDOW_HEIGHT, 

XmNleftAttachment,  XmATTACH_FORM, 
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XmNright Attachment,  XinATTACH_FORM, 

XmNtopAttachment,  XmATTACH_WIDGET, 

XmNtopWidget,  signature_label, 

XmNtopOf f set,  5, 

XmNbottomAttachment ,  XmATTACH_NONE, 

XitiNresizable,  True, 

XmNleftOf f set,  5, 

XmNrightOf f set,  5, 

XmNbottomOf fset,  5, 

XmNscrollingPolicy,  XmAUTOMATIC, 

XmNscrollBarDisplayPolicy,  XmSTATIC, 

XmNscrolledWindowMarginWidth,  5, 

XmNscrolledWindowMarginHeight,  5, 

XmNscrollVertical,  False, 

.  XmNscrollHorizontal,  True, 

NULL)  ; 

/* 

*  Save  the  widget  so  that  the  search  callbacks  can  create  signature  match 

*  results  widgets  in  it. 

*/ 

search_data . sw_parent  =  scrolled_signature_window; 

previous  =  scrolled_signature_window; 

signature_window  =  XtVaCreateManagedWidget ( "sbsform", 
xmFormWidgetClass ,  scrolled_signature_window, 

XmNwidth,  INFO_WINDOW_WIDTH, 

XmNheight,  INFO_WINDOW_HEIGHT, 

NULL)  ; 

XmScrolledWindowSetAreas (scrolled_signature_window, 

(Widget)  NULL, 

(Widget)  NULL, 
signature_window) ; 


/* 

*  Create  the  push  buttons  at  the  bottom  of  the  dialog  box. 
*/ 


xmstring  =  XmStringCreateSimple ( "OK" ) ; 

ok_btn  =  XtVaCreateManagedWidget ("sbslabel", 
xmPushButtonWidgetClass,  dialog_window, 
XmNlabelString,  xmstring, 

XmNwidth,  BUTTON_WIDTH, 

XmNheight,  BUTTON_HEIGHT, 

XmNle ft Attachment,  XmATTACH_FORM, 

XmNleftOf fset,  20, 

XmNright Attachment,  XmATTACH_NONE, 
XmNtopAttachment,  XmATTACH_NONE, 
XmNbottomAttachment,  XmATTACH_FORM, 

XmNbottomOf fset,  10, 

NULL)  ; 

XmStringFree (xmstring) ; 

XtAddCallback (ok_btn, 

XmNactivateCallback, 

(XtCallbackProc)  okCB, 

(XtPointer)  &  search_data) ; 

XtManageChild (ok_btn) ; 

xmstring  =  XmStringCreateSimple ( "Search" ) ; 

search_btn  =  XtVaCreateManagedWidget ("sbslabel" , 
XmPushButtonWidgetClass,  dialog_window, 
XmNlabelString,  xmstring, 

XmNwidth,  BUTTON_WIDTH, 

XmNheight,  BUTTON_HEIGHT, 

XmNleftAttachment,  XmATTACH^WIDGET, 

XmNle ftWidget,  ok_btn, 

XmNleftOffset,  10, 

XmNrightAttachment,  XmATTACH_NONE, 
XmNtopAttachment,  XmATTACH_NONE, 
XmNbottomAttachment,  XmATTACH__FORM, 
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XmNbottomOf fset/  10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback (search_btn, 

XmNactivateCallback, 

(XtCallbackProc)  do_searchCB, 

(XtPointer)  &  search_data) ; 

XtManageChild (search_btn) ; 

xmstring  =  XmStringCreateSimple ( "Cancel") ; 

cancel_btn  =  XtVaCreateManagedWidget { "sbslabel", 
xmPushButtonWidgetClas s ,  dialog_window, 

XmNlabe 1st ring,  xmstring, 

XmNwidth,  BUTTON_WIDTH, 

XmNheight,  BUTTON_HEIGHT, 

XmNleftAttachment,  XmATTACH_WIDGET, 

XmNlef tWidget,  search_btn, 

XmNlef tOf fset,  10, 

XmNright Attachment,  XmATTACH_NONE, 

XmNtopAttachment,  XmATTACH_NONE, 

XmNbottomAttachment,  XmATTACH_FORM, 

XmNbottomOf fset ,  10, 

NULL) ; 

XmStringFree (xmstring) ; 

XtAddCallback {cancel_btn, 

XmNactivateCallback, 

(XtCallbackProc)  cancelCB, 

(XtPointer)  &  search_data) ; 

XtManageChild (cancel_btn) ; 

XtManageChild (dialog_window) ; 

} 

/* 

*  Find  new  line  and  null  it  out.  Returns  length  of  string. 

V 


static  int 

remove_nl (char  *cptr) 

{ 

char  *first  =  cptr; 
while  (*cptr  !=  '\n') 

{ 

if  ( *cptr  ' \0 ’ ) 
break; 
cptr++; 

} 

*cptr  =  ' \0 ' ; 
return  cptr  -  first; 

} 

/* 

*  Create  a  label  from  a  line  of  text  that  is  read  from  the  input  stream.  The 

*  label  will  be  placed  in  the  parent  widget  after  the  previous  widget.  Leading 

*  spaces  will  be  skipped. 

*/ 


static  Widget 

fgetlabel (Widget  parent.  Widget  previous,  FILE  *  stream) 

{ 

Widget  widget; 

Xmstring  xmstring; 
char  lObuf [MAXBUFSIZE]  ; 
char  *ptr  =  lObuf; 

fgetsdObuf,  MAXBUFSIZE,  stream); 
remove_nl  (lObuf ) ; 

while  (*ptr  ==  ’  ’) 
ptr++; 
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xmstring  =  XmStringCreateSimple (ptr) ; 
widget  =  XtVaCreateManagedWidget ( "sbstext" , 
xmLabelWidgetClass,  parent, 

' XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_WIDGET, 

XmNtopWidget;  previous, 

XmNtopOf fset,  5, 

XmNleftAttachment,  XmATTACH_FORM,  • 

XmNleftOffset,  25, 

NULL) ; 

XtManageChild (widget)  ; 

XmStringFree (xmstring)  ; 
return  widget; 

} 

/* 

*  Clear  the  search  results  displays  and  free  memory  used  by  data  structures. 
*/ 

static  void 

clear^search (SEARCH_DATA  *  sdata) 

{ 

MATCH_LIST  *match; 

MATCH_LIST  *next_match; 

if  (sdata“>matches  ==  NULL) 
return; 

XmTextSetString (profile_text,  ”") ; 

for  (match  =  sdata->matches;  match  !=  NULL;  match  =  next_match) 

{ 

next_match  =  match->next; 

XtFree (match->filename) ; 

XtFree((char  *)match); 

} 


*  Callback  quits  program  without  returning  a  component  selection. 
*/ 


static  void 

closeCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

SEARCH_DATA  *data  =  (SEARCH_DATA  *)  client_data; 

char  *warning  =  "A  component  was  select ed\nexit  without  saving?”; 

if  (selected_component  !=  NULL  &&  ModalPromptDialog (data->parent,  "Warning",  warning)) 
return; 

cancelCB (widget,  client_data,  call_data) ; 

} 

/* 

*  Callback  exits  program. 

*/ 

static  void 

exitCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

exit (0) ; 


/* 

*  Cancel  callback 
*/ 


static  void 
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cancelCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

SEARCH_DATA  *data  =  (SEARCH_DATA  *)  client_data; 

/* 

*  Save  the  query  filename  in  case  the  used  restarts  the  search  dialog. 
*/ 


save_query_filename  =  gettext {data“>fname_text) ; 

if  (XtlsManaged {data->parent ) ) 

XtUnmanageChild (data->parent ) ; 

/* 

*  The  modal  search  dialog  set  the  call  back  to  NULL.  So  set  its  return 

*  value 
*/ 

if  {data“>callback  !=  NULL) 

(data->callback)  (widget,  (XtPointer)  NULL,  (XtPointer)  NULL) ; 
else 

return_value  -  NULL; 
done_with_dialog  =  True; 
clear_search (data) ; 

} 

/★ 

*  Ok  callback  passes  the  selected  component  to  the  applications  callback  then 

*  exits  the  dialog. 

*/ 


static  void 

okCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

char  ^warning  =  "No  module  selected\nexit  anyway?"; 

SEARCH__DATA  *data  ==  (SEARCH_DATA  *)  client_data; 

/* 

*  If  the  user  did  not  select  a  component  give  them  a  chance  to  return  to 

*  the  dialog  before  exiting. 

*/ 


if  (selected_component  ==  NULL) 

{ 

if  (ModalPromptDialog (data->parent,  "Warning",  warning)) 

{ 

return; 

} 

else 

{ 

cancelCB (widget,  client_data,  call_data); 
return; 

} 

} 

/* 

*  Save  the  query  filename  in  case  the  used  restarts  the  search  dialog. 
*/ 

save_query_filename  -  gettext (data->fname_text) ; 

if  (XtlsManaged (data->parent) ) 

XtUnmanageChild (data”>parent) ; 

/* 

*  Pass  the  component  to  the  callback  or  if  modal  set  the  return  value. 
*/ 
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if  (data->callback  !=  NULL) 

(data->callback)  (widget,  (XtPointer)  selected_component->filenanie,  (XtPointer)  NULL) 
else 

return_value  =  selected__component->filename; 
done_with_dialog  =  True; 
clear_search(data) ; 

} 

/* 

*  Toggle  button  callback  turns  off  previously  selected  button  and  saves  new 

*  component. 

*/ 

static  void 

togglebuttonCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

if  (selected_component) 

{ 

XtVaSetValues (selected_component->tbutton, 

XmNset,  XmUNSET, 

NULL) ; 

} 

selected_component  =  {MATCH_LIST  *)  client_data; 

} 

/* 

*  Show  the  user  the  results  of  the  profile  filtering  part  of  the  search.  This 

*  callback  is  made  from  the  ADA  search  routine. 

*/ 

void 

profile_f iltering_doneCB ( ) 

{ 

char  *string; 

/* 

*  PF_FILE_BUFFER  is  the  temporary  file  used  to  pass  the  results  from  the 

*  ADA  search  routines  to  the  GUI  interface. 

*/ 

if  (LoadFile (PF_FILE_BUFFER,  sstring)  >  0) 

{ 

XmTextSetString (profile_text,  string) ; 

XtFree (string) ; 
remove (PF_FILE_BUFFER) ; 

} 

else 

XmTextSetString (prof ile_text,  "Profile  filtering  ERROR!."); 


/* 

*  Callback  searches  the  software  base  for  matches  to  the  user  specified  query. 
*/ 

static  void 

do^searchCB (Widget  widget, 

XtPointer  client_data, 

XtPointer  call_data) 

{ 

SEARCH_DATA  *data  =  (SEARCH_DATA  *)  client_data; 

Widget  signature_text; 

Widget  candidates; 

Widget  previous_widget; 

Widget  component_id; 

Widget  profile_rank; 

Widget  solution; 

XmString  xmstring; 

Cardinal  n; 
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Arg  args [20] ; 

FILE  *fp; 
char  *soltext; 
char  *cptr; 

char  PTbuffer [MAXBUFSIZEJ  ; 
char  lObuffer [MAXBUFSIZE]  ; 
char  *string; 
char  * filename; 
int  length; 

int  candidates_offset  =  5; 
int  nmatchs; 
int  position; 

MATCH_LIST  *match; 

static  Widget  signature_window  =  NULL; 

if  (client_data  ==  NULL) 

{ 

cout  «  "Error  no  data\n"; 
return; 

} 

/* 

*  We  have  to  pass  a  query  file  to  the  ADA  search  routines. 

*/ 

filename  =  gettext {data->fname_text) ; 
if  (filename  -=  NULL) 

{ 

ModalWarningDialog {data->parent,  "Error",  "Query  not  specified"); 
return; 

} 

/* 

*  Clear  any  old  search  results. 

*/ 

clear_search (data) ; 

/* 

*  If  the  signature  window  exists  destroy  it  to  clear  out  the  old  search 

*  results. 

*  / 

if  (signature_window  !=  NULL  &&  XtlsManaged (signature_window) } 

{ 

XtUnmanageChild (signature_window) ; 

XtDestroyWidget (signature_window) ; 

} 

signature_window  =  XtVaCreateManagedWidget ( "sbsform", 
xmFormWidgetClass,  data->sw_parent, 

NULL) ; 

XmScrolledWindowSetAreas {data->sw_parent, 

(Widget)  NULL, 

(Widget)  NULL, 
signature_window) ; 


/* 

*  Get  the  current  minimum  rank  from  their  text  widgets. 
*/ 


string  =  XmTextGetString (data->prank_text) ; 
min_profile_rank  =  atof (string) ; 

XtFree (string) ; 

string  =  XmTextGetString (data->srank_text) ; 
min_signature_rank  =  atof (string) ; 

XtFree (string) ; 

/* 

*  Clear  the  progress  display  and  set  the  title.  The  display  will  be 

*  updated  by  the  ADA  search  routines  as  the  search  progresses. 
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*  PF_FILE_BUFFER  and  SM_FILE_BUFFER  are  the  file  names  for  the  search 

*  results.  The  profile  filtering  results  will  be  display  by  a  callback 

*  from  the  ADS  routines . 

*/ 


clear_display { "Search  Progress") ; 

sb_search { SBROOT, 
filename, 

&min_profile_rank, 

&min_signature_rank, 

PF_FILE_BUFFER, 

SM_FILE_BUFFER) ; 

XtFree (filename) ; 

selected_component  =  NULL; 

data“>matches  =  NULL; 
match  ==  NULL; 

/* 

*  Assume  that  an  error  occurred  if  we  can't  open  the  results  buffer. 

*/ 

fp  =  fopen(SM_FILE_BUFFER,  "r") ; 
if  (fp  ==  NULL) 

{ 

xmstring  =  XmStringCreateSimple ( "Signature  matching  ERROR!."); 

(void) XtVaCreateManagedWidget ( "sbstext", 

xmLabelWidgetClass,  signature_window, 

XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_FORM, 

XmNleftAttachment,  XmATTACH_FORM, 

XmNleftOf fset,  5, 

NULL) ; 

XmStringFree (xmstring) ; 

XtManageChild ( signature_window) ; 

} 

/* 

*  We  remove  the  new  lines  from  labels  so  that  they  will  not  cause  problems. 

*  The  first  line  has  information  about  the  candidates  found. 

*/ 

fgets (lObuffer,  MAXBUFSIZE,  fp) ; 
remove_nl (lObuffer) ; 

xmstring  ^  XmStringCreateSimple (lObuffer) ; 
candidates  =  XtVaCreateManagedWidget ("sbstext", 
xmLabelWidgetClass,  signature_window, 

XmNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_FORM, 

XmNleftAttachment,  XmATTACH_FORM, 

XmNleftOf fset,  5, 

NULL ) ; 

XmStringFree (xmstring) ; 
previous_widget  =  candidates; 

XtManageChild (candidates) ; 

/* 

*  Loop  through  the  components  that  were  found  display  informaiton  about 

*  each  one  and  set  up  a  toggle  button  for  the  use  to  select  one. 

*/ 


while  (fgets (lObuffer,  MAXBUFSIZE,  fp) ) 

{ 

/* 

*  Build  the  data  structure  that  will  have  the  toggle  buttons  and  file 

*  names . 

V 


if  (data“>matches  ==  NULL) 
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data->matches  =  (MATCH_LIST  *)  XtMalloc { (Cardinal)  sizeof (MATCH_LIST) ) 
match  =  data“>matches; 


else 

{ 

match->next  =  (MATCH_LIST  *)  XtMalloc ( (Cardinal)  sizeof (MATCH_LIST) ) ; 
match  =  match”>next; 

} 

match->next  =  NULL; 

/* 

*  Add  the  file  name  of  the  component 
*/ 

length  =  remove_nl ( lObuf fer) ; 

match->filename  =  (char  *) XtMalloc { (Cardinal)  (length  +  1) ) ; 
strcpy (match->filename,  lObuffer) ; 

/* 

*  Add  the  toggle  button 
*/ 

xmstring  =  XmStringCreateSimple (lObuffer) ; 
match~>tbutton  =  XtVaCreateManagedWidget ( "sbslabel" , 
xmToggleButtonWidgetClass,  signature_window, 

XmNlabelString,  xmstring/ 

XmNtopAttachment/  XmATTACH_WIDGET, 

XmNtopWidget,  previous_widget , 

XmNtopOf fset,  candidates_of fset , 

XmNleftAttachment/  XmATTACH_FORM, 

XmNleftOf fset /  5, 

NULL) ; 

previous_widget  =  match~>tbutton; 

XmStringFree (xmstring)  ; 
candidates_of fset  =  20; 

XtAddCallback (match->tbutton, 

XmNarmCallback, 

(XtCallbackProc)  togglebuttonCB, 

(XtPointer)  match) ; 

XtManageChild (match“>tbutton)  ; 

/* 

*  Show  the  user  the  component  information 
*/ 


component_id  =  fgetlabel (signature_window/  previous_widget,  fp) ; 
previous_widget  =  component__id; 

profile_rank  =  fgetlabel (signature_window,  previous^widget,  fp) ; 
previous_widget  =  profile_rank; 

nmatchs  =  1; 

/* 

*  The  ADA  routines  put  in  end  of  sections,  %%End_Signature%%  and 

*  %%End_Component%%,  that  are  used  to  control  the  parsing  of  the 

*  results.  If  we  find  an  end  of  component  then  their  are  not  signature 

*  matches  for  this  candidate. 

*/ 

fgets (lObuffer,  MAXBUFSIZE,  fp) ; 

if  (IObuffer[0]  ==  ’%'  &&  IObuffer[2]  ==  'E'  &&  IObuffer[6]  'C') 
continue; 

/* 

*  Loop  through  the  solutions  for  this  component. 


/* 


do 

{ 
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*  Create  a  lable  for  this  solution 
*/ 

sprintf (PTbuffer,  "Solution  %d",  nmatchs++) ; 
xmstring  =  XmStringCreateSimple (PTbuffer) ; 
solution  =  XtVaCreateManagedWidget ( "sbstext", 
xiiiLabelWidgetClass ,  signature_window, 

XrnNlabelString,  xmstring, 

XmNtopAttachment,  XmATTACH_WI DGET , 

XmNtopWidget,  previous_widget, 

XmNtopOf fset,  5, 

XmNle ft Attachment,  XmATTACH_FORM, 

XmNleftOf fset,  45, 

NULL)  ; 

XtManageChild (solution) / 

XmStringFree (xmstring) ; 
previous_widget  =  solution; 

/* 

*  Save  the  text  of  the  solutions. 

position  =  strlen ( lObuf fer) ; 
length  =  1; 

soltext  ~  (char  *) XtMalloc ( (Cardinal)  (position  +  1)); 

strcpy (soltext,  lObuffer) ; 

while  (f gets (lObuffer,  MAXBUFSIZE,  fp) ) 

{ 

/* 

*  Stop  when  we  find  the  end  of  this  sections  %End_Signature%% 

*/ 

if  (IObuffer[0]  ==  '%'  &&  IObuffer[2]  ==  'E’  &&  IObuffer[6]  ==  'S' 
break; 


cptr  =  soltext; 

position  +~  strlen (lObuffer) ; 

soltext  =  (char  *) XtMalloc ( (Cardinal)  (position  +  1)); 
strcpy (soltext,  cptr); 
strcat (soltext,  lObuffer); 


XtFree (cptr) ; 

length++; 

} 


/* 

*  Create  a  scrolled  text  widget  for  the  solution  it  may  be  quit 

*  long. 

*/ 


n  =  0; 

SETARG (args [n]  , 
SETARG(args [n] , 
SETARG (args [n]  , 
SETARG (args [n]  , 
SETARG (args [n]  , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [n] , 
SETARG (args [nj , 
SETARG (args [n] , 
SETARG (args [n] , 


XmNeditMode,  XmMULTI_LINE_EDIT,  n) ; 
XmNeditable,  False,  n) ; 

XinNwidth,  INFO_WINDOW_WIDTH  -  25,  n)  ; 
XmNheight,  INFO_WINDOW_HEIGHT  /  2,  n); 
XmNtraversalOn,  False,  n) ; 
XmNcursorPositionVisible,  False,  n) ; 
XmNscrollingPolicy,  XmAUTOMATIC,  n) ; 
XmNscrollBarDisplayPolicy,  XmSTATIC,  n) ; 
XmNscrolledWindowMarginWidth,  5,  n) ; 
XmNscrolledWindowMarginHeight,  5,  n) ; 
XmNtopAttachment,  XmATTACH_WIDGET,  n) ; 
XmNtopWidget,  previous_widget,  n) ; 
XmNtopOf f set,  5,  n); 

XmNle ft Attachment,  XmATTACH_FORM,  n) ; 
XmNleftOff set,  45,  n) ; 


signature_text  -  XmCreateScrolledText (signature_window,  "sbstext" 
args,  n) ; 


previous_widget  =  signature_text; 

XmTextSetString (signature_text,  soltext) ; 
XtFree (soltext) ; 
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XtManageChild (signature_text) ; 
fgets (lObuf fer,  MAXBUFSIZE,  fp) ; 

} 

while  {IObuffer[6]  ==  ’S'); 

} 

fclose (fp) ; 

remove (SM_FILE_BUFFER)  ; 
XtManageChild {signature_window) ; 


R.  UTILS.H 


/* 

*  $lcl:  Utils. h,v  1.3  1993/01/18  16:35:46  greg  Exp  $ 

* 

*  Utils. h  —  Software  Base  Search  Interface 

* 

*  Header  file  for  the  interface  utilities. 

★ 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

★ 

*/ 


char  * 

getdirname (char  *path) ; 
char  * 

getfilename (char  *path) ; 
char  * 

catstrings (char  *stl,  char  *st2); 
void 

Set_Res_String (Widget  widget,  String  name,  char  *text); 
char  * 

gettext (Widget  string) ; 
void 

savetext (Widget  parent,  char  *filename,  char  *text) ; 
long 

LoadFile (char  *filename,  char  **ptraddr) ; 

Boolean 

CopyFile (char  *filein,  char  *fileout); 
void 

Reformat (const  char  *fname,  const  int  nskipcommas) ; 


S.  UTILS.C 


/* 

*  $Id:  Utils. C,v  1.5  1998/01/25  22:49:09  greg  Exp  $ 

* 

*  Utils. C  --  Software  Base  Search  Interface 

* 

*  Source  code  for  the  common  utilities  used  in  the  software  base  search 

*  interface. 

* 

*  Entry  points:  getdirname,  getfilename,  catstrings,  Set_Res_String,  gettext, 

*  savetext,  LoadFile,  CopyFile,  Reformat, 
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*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 

#include  <stdio.h> 
tinclude  <stdlib.h> 

#include  <string.h> 
tinclude  <iostream.h> 

#include  <sys/stat.h> 
iinclude  <Xm/Xm.h> 

#include  <Xm/Text.h> 

tinclude  "PromptDialog. h” 

/* 

*  Returns  a  character  pointer  to  a  copy  of  the  directory  part  of  the  path  to  a 

*  file.  The  application  is  responsible  for  freeing  the  storage  associated  with 

*  the  string  by  calling  XtFree. 

*/ 

char  * 

getdirname (char  *path) 

{ 

char  *cptr  =  strrchr (path,  '/*); 
char  *rv; 

Cardinal  length; 

/* 

*  If  the  path  did  not  have  a  separator  its  local  so  return  a  pointer  to 

*  the  local  directory.  Other  wise  make  a  copy  of  the  path  up  to  and 

*  including  the  separator. 

*/ 

if  (cptr  ==  NULL) 

{ 

rv  =  XtMalloc ( (Cardinal)  3); 
strcpy(rv,  "./"); 

} 

else 

{ 

length  =  cptr  -  path  +  1; 
rv  =  XtMalloc (length  +  1); 
strncpy(rv,  path,  length); 

*(rv  +  length)  =  ' \0 '  ; 

} 

return  rv; 

} 

/* 

*  Returns  a  character  pointer  to  a  copy  of  the  file  name  part  of  the  path  to  a 

*  file.  The  application  is  responsible  for  freeing  the  storage  associated  with 

*  the  string  by  calling  XtFree. 

*/ 

char  * 

getfilename (char  *path) 

{ 

char  *cptr  ~  strrchr (path,  ’/'); 
char  *rv; 
int  length; 

/* 

*  If  the  path  did  not  have  a  separator  then  its  the  file  name.  Other  wise 

*  step  past  it. 

*/ 

if  (cptr  ==  NULL) 

{ 

cptr  -  path; 

} 
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else 

{ 

cptr++; 

} 

/*  . 

*  Make  a  copy  of  the  file  name  and  return  it  pointer. 
*/ 


length  -  strlen (cptr) ; 
rv  =  XtMalloc (length  +  1); 
strcpy(rv,  cptr); 
return  rv; 


/* 

*  Returns  a  character  pointer  to  a  copy  of  the  concatenation  of  the  stl  and 

*  st2.  The  application  is  responsible  for  freeing  the  storage  associated  with 

*  the  string  by  calling  XtFree. 

V 

char  * 

catstrings (char  *stl,  char  *st2) 

{ 

unsigned  int  length  =  strlen(stl)  +  strlen(st2); 
char  *rv  =  XtMalloc (length  +  1) ; 
char  *cptr  =  rv; 

while  (*stl  !=  '\0’) 

*cptr++  -  *stl++; 

while  (*st2  !=  '\0’) 

*cptr++  *=  *st2++; 

*cptr  =  ' \0 ' ; 

return  rv; 

} 

/* 

*  Set  a  resource  string  of  a  widget 
*/ 

void 

Set_Res_String (Widget  widget,  //  Widget  containing  resource. 

String  name,  //  Motif  name  of  widget, 

char  *text)  //  Text  to  set  resource  to. 

{ 

XmString  tmp  =  XmStringCreateLtoR (text,  XmSTRING_DEFAULT_CHARSET) ; 

Arg  args[l] 

{ 

{name,  (XtArgVal)  0} 

}; 

args [0] .value  =  (XtArgVal)  tmp; 

XtSetValues (widget,  args,  1); 

XmStringFree (tmp) ; 

} 

/* 

*  Returns  a  character  pointer  to  the  string  value  of  the  text  widget  or  NULL 

*  if  its  empty.  The  application  is  responsible  for  freeing  the  storage 

*  associated  with  the  string  by  calling  XtFree. 

V 

char  * 

gettext (Widget  text) 

{ 

if  (text  ==  NULL) 
return  NULL; 

char  *string  =  XmTextGetString (text) ; 
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/* 

*  If  the  string  is  "empty"  then  set  the  string  pointer  to  NULL 

if  ( *string  ==  ' \0 ’ ) 

{ 

XtFree (string) ; 
string  =  NULL; 

} 

return  string; 

} 

/* 

*  Save  the  text  file  to  a  file. 

*/ 


void 

savetext (Widget  parent,  char  *filename,  char  *text) 

{ 

FILE  *fp; 

size_t  length; 
size_t  written; 

fp  =  fopen ( filename,  ”w"); 

/* 

*  If  the  open  failed  prompt  the  user  so  they  will  know 
*/ 

if  (fp  ==  NULL) 

{ 

char  lObuf fer [256] ; 

sprintf (lObuf fer,  "Error  opening  file  %s",  filename); 
ModalWarningDialog (parent,  "Error",  lObuffer) ; 
return; 

} 

/* 

*  Write  the  text  to  the  file 
*/ 


length  =  strlen (text) ; 

written  =  fwrite(text,  1,  length,  fp) ; 

fclose ( fp) ; 

/* 

*  If  their  was  an  error  writing  the  file  prompt  the  user  so  they  will  know 
*/ 


if  (written  !=  length) 

{ 

char  lObuffer [256] ; 

sprintf (lObuffer,  "Error  writing  file  %s",  filename); 
ModalWarningDialog (parent,  "Error",  lObuffer); 

} 


/* 

*  Function  to  load  a  text  file  into  memory.  Returns  the  number  of  bytes 

*  written.  The  application  is  responsible  for  freeing  the  storage  associated 

*  with  the  string  by  calling  XtFree. 

*/ 

long 

LoadFile (char  *filename,  char  **string) 

{ 

FILE  *fp; 

struct  stat  file_info; 
char  *buffer; 
long  bytes_read; 
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/* 

*  Open  the  file  and  return  if  their  is  an  error. 

*/ 

fp  =  f open ( filename,  ”r"); 

if  (fp  ==  NULL) 

{ 

^string  =  NULL; 
return  -1; 

} 

/■k 

*  Get  file  size.  Return  if  their  is  an  error. 

*/ 

if  (stat { filename,  &file_info)  !=  0) 

{ 

*string  =  NULL; 
fclose (fp) ; 
return  -1; 

} 

/* 

*  Get  memory  to  hold  the  files  text  string.  Return  if  their  is  an  error 
*/ 

^string  ~  (char  *)XtMalloc (file_info.st_size  +  1); 
buffer  =  *string; 

if  (buffer  ==  (char  *)NULL) 

{ 

fclose ( fp) ; 
return  -1; 

} 

/* 

*  Read  in  file.  Return  if  their  is  an  error  writing  the  text. 

V 

bytes__read  -  fread  (buffer,  1,  file_info .  st_size,  fp)  ; 
fclose (fp); 

if  (bytes_read  <  file_info. st_size) 

{ 

XtFree (buffer) ; 

*string  =  NULL; 
return  -1; 

} 

buffer [ file_info . st_size]  =  ’\0';  //  Terminate  string, 

return  bytes_read; 


/* 

*  Copy  filein  to  fileout.  Returns  true  if  the  copy  was  successful  and  fails 

*  other  wise  . 

*/ 


Boolean 

CopyFile (char  *filein,  char  *fileout) 

{ 

FILE  *fp; 

struct  stat  file_info; 
char  *buffer; 
long  bytes_read; 

/* 

*  Get  input  file  size.  Return  if  we  can't  stat  file. 
*/ 

if  (stat (filein,  &file_info)  !=  0) 
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{ 

return  False; 

} 

/* 

*  Open  the  input  file.  Return  if  we  can't  open  the  file  for  reading. 

*/ 

fp  =  fopen(filein,  "r")/ 

if  (fp  ==  NULL) 
return  False; 

/* 

*  Allocate  memory  to  hold  file  contents.  Return  if  their  was  an  error 
*/ 

buffer  =  (char  * ) XtMalloc ( file_info . st_size  +  1); 

if  (buffer  ==  (char  *)NULL) 

{ 

fclose (fp) ; 
return  False; 

} 

/* 

*  Read  in  the  input  files  contents.  Return  if  their  was  an  error  reading 

*  the  file. 

*/ 

bytes_read  =  f read (buffer,  1,  file_info . st_size,  fp) ; 
fclose ( fp) ; 

if  (bytes_read  <  file_info , st_size) 

{ 

XtFree (buffer) ; 
return  False; 

} 


/* 

*  Open  the  output  file.  Return  if  we  can't  open  the  file  for  writing. 

*/ 

fp  =  fopen (fileout,  "w"); 

if  (fp  ==*  NULL) 
return  False; 

/* 

*  Write  the  contents  of  the  input  file  to  the  output  file.  Return  if  their 

*  was  an  error  writing  the  file. 

*/ 


bytes_read  =  fwrite (buffer,  1,  file_info . st_size,  fp) ; 
f close (fp); 

if  (bytes_read  <  file_info. st_size) 

{ 

XtFree (buffer) ; 
return  False; 

} 

return  True; 

} 

/* 

*  Reformat  the  ADA  search/maintenance  output  so  we  can  display  it  in  the 

*  progress  dialog.  The  ADA  has  very  long  lines  that  needed  to  be  folded.  The 

*  profile  filtering  is  slightly  different  from  the  signature  matching.  So  we 

*  use  the  skip  commas  to  distinguish  between  the  types. 

*/ 

void 

Reformat (const  char  *fname,  const  int  nskipcommas) 
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FILE  *fpin; 

FILE  *fpout; 
char  *ftemp; 
int  brace; 
char  tab [256]; 
char  *ptab; 
char  c; 

int  coinmas  =  0; 

/* 

*  Return  if  the  calling  program  gave  us  a  null  file  name. 

*/ 

if  (fname  ==  NULL) 
return; 

/* 

*  We  create  a  temporary  file  by  adding  .tmp  to  the  input  file  name.  Then 

*  rename  the  input  file  so  we  can  reformat  into  the  correct  file. 

*/ 

ftemp  =  (char  *) XtMalloc ( (Cardinal)  (strlen ( fname)  +  5)); 
strcpy (ftemp,  fname); 
strcat ( ftemp,  ".tmp"); 

if  (rename (fname,  ftemp)  -=  -1) 
return; 

brace  =  False; 
ptab  =  tab; 

fpin  =  fopen(ftemp,  "r") ; 
fpout  =  fopen( fname,  "w"); 

/* 

*  Try  to  fold  the  line  after  a  comma  so  that  the  braces  line  up 
*/ 

while  ( (c  =  fgetc(fpin))  !=  EOF) 

{ 

if  ( Ibrace) 

{ 

/* 

*  If  we  have  not  found  a  brace  look  for  one. 

*/ 

switch  (c) 

{ 

/* 

*  brace  found  start  looking  for  end  of  line. 

*/ 


case  ' { ' : 
case  '  [  ’  : 
brace  ~  True; 
break; 

/* 

*  If  we  find  a  end  of  line  before  brace  restart  tab  string 
*/ 


case  ' \n’ : 
ptab  ~  tab; 

*ptab  =  '\0'; 
break; 

/* 

*  Other  wise  add  a  space  for  each  character. 
*/ 


default : 
*ptab++  =  '  '  ; 
*ptab  =  ’ \0 ' ; 
break; 
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} 

fputc(c,  fpout); 

} 

else 

{ 

/* 

*  brace  found  now  look  for  the  end  of  the  line. 

*/ 

fputc(c,  fpout); 
switch  (c) 

{ 

/* 

*  If  we  find  a  coimna  put  rest  of  text  on  next  line  after 

*  tabbing  over  to  line  up  text  with  brace.  We  may  need  to  skip 

*  so  of  the  commas  first 
*/ 

case  ' ,  '  : 
comma S++; 

if  (commas  >  nskipcommas) 

{ 

commas  =  0; 
fputc{'\n',  fpout); 
fputs (tab,  fpout) ; 

} 

break; 

/* 

*  Found  a  new  lien  so  start  looking  for  the  first  brace  on  the 

*  next  line.  Also  reset  the  amount  to  tab  over. 

*/ 

case  • \n ' : 
brace  =  False; 
ptab  =  tab; 

*ptab  =»  '\0’; 
commas  =  0; 
break; 
default : 
break; 

} 

} 

} 

/* 

*  We  are  done  reformatting  so  cleanup 
*/ 

f close ( fpin) ; 
f close { fpout) ; 
remove (ftemp) ; 

XtFree (ftemp) ; 
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APPENDIX  B  GNAT  GENERATED  C  SOURCE  CODE 


Source  code  generated  by  the  GNAT  ADA  compiler  to  initialize  the  environment. 


A.  B^ADA_^SYSTEM.H 

/* 

*  $Id:  b_acia_system.h,v  1.1. 1.1  1998/01/14  03:40:05  greg  Exp  $ 

* 

*  b_ada_system. h  —  Software  Base  Search  Interface 

* 

*  Header  file  for  the  ADA  systems  initialization  routine. 

* 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 

extern  "C”  b_ada_init (int  argc,  char  **argv,  char  **envp) ; 
extern  "C”  b_ada_final (void) ; 


B.  B_ADA_SYSTEM.C 

/* 

*  $Id:  b_ada_system.c,v  1.2  1998/01/18  17:40:49  greg  Exp  $ 

* 

*  b_ada_system. c  —  Software  Base  Search  Interface 

* 

*  Source  code  for  the  ADA  systems  initialization.  This  was  generated  by  the 

*  GNAT  Compiler. 

* 

*  Naval  Postgraduate  School 

*  January  13,  1998 

* 

*  Written  by  Gregory  L.  Meckstroth 

* 

*/ 


extern  int  gnat_argc; 
extern  char  **gnat_argv; 
extern  char  **gnat_envp; 
extern  int  gnat_exit_status; 
void  adafinal ( ) / 
void 

adainit ( ) 

{ 

_ gnat_set_globals ( 

“1,  /* 

*  Main_Priority 
*/ 

"1,  /* 

*  Time_Slice_Value 
*/ 

’  /* 

*  Locking_Policy 
*/ 

’  /* 

*  Queuing_Policy 
*/ 

’  /* 

*  Tasking__Dispatching_Policy 
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adaf inal) ; 


ada _ elabs  ( )  ; 


ada  characters _ elabs  (); 


*  ada _ characters _ handling _ elabs  () 

Ir 

*  ada _ characters _ latin_l _ elabs  (); 

*/ 


/* 


gnat _ elabs  (); 


V 


gnat _ case__util _ elabs  (); 


V 


gnat _ case_util _ elabb  (); 


/* 


*  gnat htable _ elabs  ( )  ; 

V 

gnat ^^htable _ elabb  (); 


*  gnat _ io _ elabs  {}; 

*/ 


gnat _ io _ elabb  { )  ; 


/* 


V 


*  interfaces _ elabs  (); 

V 

system _ elabs ( ) ; 

*  system _ exn_gen _ elabs  ( ) ; 

V 


/* 


*  system _ exn_gen _ elabb 

V 


/* 


system _ exn_lli _ elabs  {); 


system _ img  bool  elabs  (); 


system _ img_int _ elabs  ( )  ; 


system _ img_lli _ elabs  (); 


*  system _ img_real _ elabs  (); 

V 

k 

*  system parameters _ elabs  (); 

V 

it 

*  system parameters _ elabb  {); 


/* 


/* 


interfaces  c  streams _ elabs (); 


*  interfaces c_streams _ elabb  (); 

*/ 

system powten_table _ elabs { ) ; 

/* 

*  system _ standard_library _ elabs  (); 

V 


/* 

*  system _ exception_table _ elabs  (); 

*/ 

system _ exception_table _ elabb ( ) ; 

ada _ io_exceptions _ elabs  ( )  ; 

ada _ strings _ elabs  ( )  ; 

/* 

*  io_exceptions _ elabs  (); 

*/ 

/* 


*  system storage_elements _ elabs  (); 

*/ 

/* 

*  system storage_elements _ elabb  ()/ 

*/ 

/* 


*  system _ secondary_stack _ elabs  (); 

*/ 

/* 

*  system _ img_lli _ elabb  {); 

V 

/* 


*/ 

/* 

* 

*/ 


/* 

★ 

*/ 

/* 

* 

*/ 

/* 

* 

*/ 

/* 

* 

V 

/* 

* 

*/ 

/* 

* 

*/ 

/* 


system _ img_int _ elabb  {); 

system img_bool _ elabb  {); 

ada _ tags _ elabs  ( )  ; 

ada _ ^tags _ _elabb  ( )  ; 

ada _ streams _ elabs  ( )  ; 

ada exceptions _ elabs  ( )  ; 

system _ string_ops _ elabs  (}; 

system _ string_ops _ elabb  (); 

system _ task_specific_data _ elabs  ()  ; 

system _ tasking_sof t_links _ elabs  () ; 

system _ tasking_soft_links _ elabb  ( ) ; 

system _ task__specific__data _ elabb  () ; 

system _ secondary_stack _ elabb  {)  ; 

system _ standard_library _ elabb  (); 


*  system _ exn_llf _ elabs  {); 

*/ 

/* 

*  system _ unsigned_types _ elabs 


(); 


ada _ strings _ ^maps _ elabs  ( ) ; 

ada _ strings _ maps _ constants _ elabs  { ) 

ada _ characters _ handling _ elabb  ( )  ; 


*  system _ bit_ops _ elabs  {); 

*/ 

/* 


*  system _ bit_ops _ elabb  (); 

*/ 

/* 


*  ada _ strings _ ^maps_ _ elabb  {); 

*/ 

/* 


*  system fat_llf _ elabs  (); 

*/ 

/* 

*  system img_biu _ elabs  {); 


system _ img_biu _ el  abb  ( )  ; 


system _ img_llb _ elabs  { ) ; 


/* 


*  system _ img_llb _ elabb  (); 


/* 


system _ img_llu _ elabs  (); 


system _ img_llu _ elabb  (); 


system^ _ img_llw _ elabs  (); 


system _ img_llw _ elabb  (); 


V 


system _ img_uns _ elabs  (); 


V 


/* 


system _ img_uns _ elabb  {); 


V 


system _ img_real _ elabb  (); 


system _ img_wiu _ elabs  ( )  ; 


V 


system _ img_wiu _ elabb  (); 


*  system _ stream_attributes _ elabs  (); 


system _ ^stream_attributes _ elabb  () ; 


ada _ exceptions _ elabb  (); 

system _ finalization_root _ elabs  ()  ; 

system _ finalization_root _ elabb  () ; 

system _ finalization_implementation_ 


*  system _ final! zation_implementation_ 

V 

ada  finalization _ elabs (); 


*  ada _ finalization _ elabb  {); 

V 

ada  finalization  list  controller 


/* 


*  ada _ finalization _ list_cont roller _ 

V 

system f ile_control_block _ elabs ( ) 


system _ file_io _ elabs  {); 

system f ile_io _ elabb  ( )  ; 

ada text_io _ elabs { ) ; 

ada  text  io _ elabb  ( ) ; 


ada  float  text  io _ elabs  { ) ; 


*  ada _ integer_text__io _ elabs  () 


_ elabs ( ) 

_elabb  () 

_elabs  { ) ; 
elabb  {); 


no 


*/ 

/* 

*  ada _ long_long_integer_text_io _ elabs  (); 

*/ 

/* 

*  ada _ text_io _ enumeration_aux _ elabs  ();, 

*/ 

/* 

*  ada text_io f loat_aux _ elabs  ( ) ; 

V 

/* 

*  ada f  loat_text_io _ elabb  { )  ; 

V 

/* 

*  ada text_io generic_aux _ elabs  (); 

V 

/* 

*  ada _ text_io _ generic_aux _ elabb  {); 

*/ 

/* 

*  ada _ textile _ enumeration_aux _ elabb  {); 

*/ 

/* 

*  ada text_io integer_aux __elabs  (); 

*/ 

/* 

*  ada _ long_long_integer_text_io _ elabb  ( ) / 

V 

/* 

*  ada _ integer_text_io _ ^elabb  {); 

*/ 

/* 

*  system _ val_bool _ elabs  (); 

*/ 

/* 

*  system _ val_enum _ elabs  {); 

*/ 

/* 

*  system _ val_int _ elabs  (); 

*/ 

/* 

*  system _ val_lli _ elabs  (); 

*/ 

/* 

*  ada _ text_io _ integer_aux _ elabb  (); 

*/ 

/* 

*  system _ val_llu _ elabs  (); 

*/ 

/* 

*  system _ val_real _ elabs  {); 

*/ 

/* 

*  ada text_io f  loat_aux _ elabb  { )  ; 

*/ 

/* 

*  system _ val_uns _ elabs  {); 

*/ 

/* 

*  system _ val_util _ elabs  (); 

*/ 

/* 

*  system _ val_util _ elabb  {); 

*/ 

/* 

*  system _ val_uns _ elabb  (); 

*/ 

/* 

*  system _ val_real _ elabb  (); 

*/ 

/* 

*  system _ val_llu _ elabb  (); 

V 

/* 
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*  system _ val_lli _ elabb  (); 

*/ 

/* 

*  system _ val_int _ elabb  {); 

*/ 

/* 

*  system _ val__enum _ elabb  (); 

*/ 

/* 

*  system _ val_bool _ elabb  (); 

*/ 

/* 

*  text_io _ elabs  (); 

*/ 

/* 

*  max _ elabb  (); 

V 

/* 

*  min _ elabb  ( ) ; 

V 

a_strings _ elabs  ( ) ; 

a_strings _ elabb  ( )  ; 

/* 

*  bool_io _ elabs  (); 

*/ 

/* 

*  bool_io _ elabb  (); 

*/ 

/* 

*  delimiter_pkg _ elabs  (); 

*/ 

delimiter_pkg _ elabb {) ; 

/* 

*  generic_buf fered_allocation _ elabs  (); 

*/ 

/* 

*  generic_set_pkg _ elabs  (); 

*/ 

/* 

*  int_io _ elabs  ( )  ; 

*/ 

/* 

*  int_io _ elabb  ( )  ; 

*/ 

/* 

*  lookahead_pkg _ elabs  (); 

*/ 

lookahead_pkg _ elabb ( ) ; 

/* 

*  millisec_pkg _ elabs  (); 

*/ 

millisec_pkg _ elabb ( ) ; 

/* 

*  ordered_set_pkg _ elabs  (); 

*/ 

parse r_goto _ elabs { ) ; 

/* 

*  parser_lex_dfa _ elabs  (); 

*/ 

parser_lex_dfa _ elabb ( ) ; 

parser_lex_io _ elabs ( ) ; 

parser_lex_io _ elabb ( ) ; 

parser_shif t_reduce _ elabs ( ) ; 

/* 

*  sb_utils _ elabs  {); 

*/ 

sb_utils _ elabb ( ) ; 

shared_f ree_list _ elabs ( ) ; 

shared_f ree_list _ elabb ( ) ; 

generic__buf  fered_allocation _ elabb  { )  ; 

ordered_set_pkg _ elabb ( ) ; 

square_root_pkg _ elabs  ( )  ; 

square_root_pkg _ elabb  { )  ; 

generic_set_pkg _ elabb  ( ) ; 
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/* 

*  generic_map_pkg _ elabs  {); 

*/ 

generic_map_pkg _ elabb  ( )  ; 

natural_set_pkg _ elabs  ()  ; 

natural_set_pkg _ elabb  ( )  ; 

/* 

*  generic_sequence__pkg _ elabs  (); 

*/ 

generic_sequence_pkg _ elabb ( ) ; 

/* 

*  ordered_map__pkg _ elabs  (); 

*/ 

ordered_map_pkg _ elabb ( ) ; 

prof ile_types _ elabs { ) ; 

/* 

*  profile_calc _ elabs  (); 

*/ 

prof ile_calc _ elabb ( ) ; 

/* 

*  text_pkg _ elabs  (); 

*/ 

text__pkg _ elabb  ( )  ; 

/* 

*  ada_id_pkg _ elabs  ( )  ; 

*/ 

/* 

*  psdl_id_pkg _ elabs  (); 

*/ 

psdl__id_seq_pkg _ elabs  ( )  ; 

/* 

*  op_id_pkg _ elabs  (); 

*/ 

op  id  pkg  elabb ( ) ; 

/* 

*  excep_id^pkg _ elabs  ( )  ; 

*/ 

excep_id_pkg _ elabb { ) ; 

op_id_set_inst_pkg _ elabs { ) ; 

op_id_set_inst_pkg _ elabb  { )  ; 

/* 

*  output_id_pkg _ elabs  (); 

V 

output_id_pkg _ elabb ( ) ; 

timing_map_inst_pkg _ elabs  ()  ; 

/* 

*  timing_map_inst_pkg _ elabb  {); 

*/ 

type_name_pkg _ elabs  ( )  ; 

type_name_pkg _ elabb  ( )  ; 

/* 

*  psdl_id_set_subtype_pkg _ elabs  {)/ 

*/ 

expression__pkg _ elabs  ( )  ; 

expression_pkg _ elabb ( )  ; 

excep_trigger  map  inst  pkg _ elabs (); 

/* 

*  excep_trigger_map_inst_pkg _ elabb  { )  ; 

*/ 

exec_guard_map_inst_pkg _ elabs  ( )  ; 

/* 

*  exec_guard_map_inst_pkg _ elabb  {); 

*/ 

init_map_inst_pkg _ elabs  ()  ; 

/* 

*  init_map_inst_pkg _ elabb  (); 

*/ 

out_guard_map_inst_pkg _ elabs  ( ) ; 

/* 

*  out_guard_map_inst_pkg _ elabb  {); 

*/ 

/* 

*  psdl_type_set_subtype_pkg _ elabs  (); 

*/ 
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timer_op_pkg _ elabs ( ) ; 

timer_op_pkg _ ^elabb  ( )  ; 

/* 

*  tim,__op_io _ elabs  (); 

*/ 

/* 

*  tim_op_io _ elabb  (); 

V 

timer_op_set_inst_pkg _ elabs  { ) ; 

timer_op_set_inst_pkg _ elabb ( ) ; 

tinier_op_map_inst_pkg _ elabs  { ) ; 

/* 

*  timer_op_map_inst_pkg _ elabb  (); 

*/ 

trigger_pkg _ elabs ( )  ; 

trigger_pkg _ elabb {) ; 

trigger_map_inst_pkg _ elabs ( ) ; 

/* 

*  trigger_inap_inst_pkg _ elabb  (); 

*/ 

/* 

*  pscll_concrete_type_pkg _ elabs  (); 

*/ 

psdl_concrete_type_pkg _ elabb ( ) ; 

parser_tokens _ elabs { ) ; 

/* 

*  parser_lex _ elabs  (); 

*/ 


parser_lex _ elabb ( )  ; 

psdl_graph_pkg _ elabs ( ) ; 

psdl_graph_pkg _ elabb () ; 

psdl_component_pkg _ elabs () ; 

psdl_component_pkg _ elabb {) ; 

psdl_prof ile _ elabs ( )  ; 

component_id_types _ elabs () ; 

component_id_types _ elabb () ; 

haase_diagram _ elabs ( ) ; 

psdl_program_pkg _ elabs ( ) ; 

psdl_program_pkg _ elabb ( ) ; 

parser _ elabs  ( ) ; 

parser _ elabb  ()  ; 

/* 

*  psdl_io _ elabs  ( ) ; 

*/ 

psdl_io _ elabb  ( )  ; 

sig_match_types _ elabs  { )  ; 

candidate_types _ elabs ( ) ; 

candidate_types _ elabb ( ) ; 

sig_match_types _ elabb ( ) ; 

/* 

*  profile_filter_pkg _ elabs  (); 

*/ 

prof ile_filter_pkg _ elabb  () ; 

/* 

*  sig_inatch _ elabs  (); 

*/ 

sig_match _ elabb  ( )  / 

software__base _ elabs  ( ) ; 

software_base _ elabb  ( ) ; 

haase_diagram _ elabb  ( ) ; 

psdl_profile _ elabb  ( ) ; 

prof ile_types _ elabb ( ) ; 

/* 

*  sb_init _ elabb  ( )  ; 

*/ 


} 

void 

adafinal ( ) 

{ 

system _ f inalization^implementation _ finalize_global_list { ) 

} 

int 

b_ada_init {argc,  argv,  envp) 
int  argc; 
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char  **argv; 
char  **envp; 

gnat_argc  =  argc; 
gnat_argv  =  argv; 
gnat_envp  =  envp; 

_ gnat_initialize ( ) ; 

adainit ( ) ; 

/* 

*  _ada_sb_init  { ) ; 

V 


void 

b_ada_f inal ( ) 

{ 

ada final ( ) ; 

_ gnat_f inalize { ) ; 

exit (gnat_exit_status) ; 

} 

unsigned  sb_initB  =  0x0164A2F2; 

unsigned  system _ standard_libraryB  =  0x522 691A4; 

unsigned  system _ standard_libraryS  =  0x79B018CE; 

unsigned  a_stringsB  -  0x4A10E5BB; 
unsigned  a_stringsS  =  0x224334F3; 

unsigned  system _ secondary_stackB  =  0x5EAFC39A; 

unsigned  system _ secondary_stackS  =  0x36DDFD40; 

unsigned  systems  =  0x08FBDA7E; 

unsigned  system _ task_specific_dataB  =  0x3FC34A96; 

unsigned  system _ task_specific_dataS  =  0x47178527; 

unsigned  system _ tasking_soft_linksB  =  0x06DD5994; 

unsigned  system _ tasking_soft_linksS  =  0x6316D326; 

unsigned  system _ storage_elementsB  =  0x6FD7DF62; 

unsigned  system _ storage_elementsS  -  0x5B2FF7Bl; 

unsigned' system _ string__opsB  =  0x6E258F4E; 

unsigned  system _ string_opsS  =  0x260AlD23; 

unsigned  system _ exception_tableB  =  0x2A7F6B90; 

unsigned  system _ exception_tableS  =  0xl9C2AE08; 

unsigned  gnats  =  0xl56A40CF; 

unsigned  gnat _ htableB  =  0xl38A54Cl; 

unsigned  gnat _ htableS  =  0x463AD2F7; 

unsigned  adaS  =  0x2359F9ED; 

unsigned  ada _ float__text_ioB  =  0x5AF53864; 

unsigned  ada _ float_text_ioS  =  0x68CB390E; 

unsigned  ada _ text_ioB  =  0x67C38C44; 

unsigned  ada _ text_ioS  =  0x56ACDF93; 

unsigned  ada _ streamsS  -  0x7C25DE96; 

unsigned  ada _ tagsB  =  0x07DC67C0; 

unsigned  ada _ tagsS  =  0x0A72F2E2; 

unsigned  interfacesS  =  Ox0357EOOA; 

unsigned  interfaces _ c__streamsB  =  0x0915C508; 

unsigned  interfaces _ c_streamsS  =  0xl63276FB; 

unsigned  system _ parametersB  =  0xlDD5A020; 

unsigned  system _ parametersS  =  0x000E4206; 

unsigned  system _ file_ioB  ==  0x5640C74A; 

unsigned  system _ file_ioS  =  0x350F4CF0; 

unsigned  ada _ finalizationB  =  0x4F0184F2; 

unsigned  ada _ finalizations  =  0x0A0669D8; 

unsigned  system _ finalization_rootB  =  0x26610831; 

unsigned  system _ finalization_rootS  »  0xlE9694A4; 

unsigned  system _ stream_attributesB  -  0x3E43967C; 

unsigned  system _ stream_attributesS  =  0x55C81A60; 

unsigned  ada _ io_exceptionsS  =  0x34054F96; 

unsigned  system _ unsigned_typesS  =  0x362290AA; 

unsigned  system _ finalization_implementationB  =  0x24B3392D; 

unsigned  system _ finalization_implementationS  =  0x3CC4D947; 

unsigned  ada _ exceptionsB  =  0x3016C36D; 

unsigned  ada _ exceptionsS  =  0x4CED7A40; 

unsigned  system _ file_control_blockS  =  Ox7B3BF0FA; 

unsigned  ada _ finalization _ list_controllerB  =  0x35E59753; 

unsigned  ada _ finalization _ list_controllerS  =  0x34B32999; 
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unsigned  ada _ text_io _ float_auxB  =  0x09BCEFlE; 

unsigned  ada _ text_io _ float_auxS  -  0x7859El6E; 

unsigned  ada _ text_io _ generic_auxB  =  0x2BB82BBF/ 

unsigned  ada _ text_io _ generic_auxS  =  0xlA2347ED/ 

unsigned  system _ img__realB  =  OxOF48969A; 

unsigned  system _ img_realS  =  0x7207087A; 

unsigned  system _ fat_llfS  =  0x34C0D34E; 

unsigned  system _ img_lluB  =  0x327658F4; 

unsigned  system _ img_lluS  -  0x365A4C95; 

unsigned  system _ img_unsB  =  0x04FCDB0C; 

unsigned  system _ img_unsS  ==  0x0E07D0DF; 

unsigned  system _ powten_tableS  =  0x7893525A; 

unsigned  system _ val_realB  =  0x513AD14F; 

unsigned  system _ val_realS  =  Ox4F1238F4; 

unsigned  system _ exn_llfS  =  0x670FFlD2; 

unsigned  system _ exn_genB  =  0x72152961; 

unsigned  system _ exn_genS  -  Ox325B6B9E; 

unsigned  system _ val_utilB  =  0x43F8A78C; 

unsigned  system _ val_utilS  =  0x6B7B6FlB; 

unsigned  gnat _ case_utilB  =  0x50DFD047; 

unsigned  gnat _ case_utilS  =  0x240BBC41; 

unsigned  candidate_typesB  =  0xlDC17F63; 
unsigned  candidate_typesS  =  0x78BC99B8; 

unsigned  ada _ integer_text_ioB  -  Ox767F630A; 

unsigned  ada _ integer_text_ioS  =  0x44416260; 

unsigned  ada _ text_io _ integer_auxB  =  0x37DCF454; 

unsigned  ada _ text_io _ integer_auxS  =  0x66BE5732; 

unsigned  system _ img_biuB  =  0x3C3FD5BB; 

unsigned  system _ img_biuS  =  0x3E53F225; 

unsigned  system _ img_intB  =  0x79CE2327; 

unsigned  system _ img_intS  =  0x294Ell4F; 

unsigned  system _ img_llbB  *  0x56913838; 

unsigned  system _ img_llbS  =  0x7lDF2A7E; 

unsigned  system _ img__lliB  -  0x746AD087; 

unsigned  system _ img_lliS  =  0x27F434CC; 

unsigned  system _ img_llwB  =  0x7909674C; 

unsigned  system _ img_llwS  =  0xl0809F4A; 

unsigned  system _ img_wiuB  -  0x25C29895; 

unsigned  system _ img_wiuS  =  0x581 1EC30; 

unsigned  system _ val_intB  =  0x720C563A; 

unsigned  system _ val_intS  =  0x45FF83FC; 

unsigned  system _ val_unsB  =  0x5220CEA2; 

unsigned  system _ val_unsS  =  0x6CBA7A61; 

unsigned  system _ val_lliB  =  0x731F063C; 

unsigned  system _ val_lliS  =  0x7A59FFA4; 

unsigned  system _ val_lluB  ==  0x54503248; 

unsigned  system _ val_lluS  =  0xllAE29BD; 

unsigned  component_id_typesB  -  0xl40EE20B; 
unsigned  component_id_typesS  -  0x2E5EA4CF; 

unsigned  gnat _ ioB  =  0x45421936; 

unsigned  gnat _ ioS  =  0x50EB74BA; 

unsigned  psdl_concrete_type_pkgB  =  0x789F49BD; 

unsigned  psdl_concrete_type_pkgS  =  0x07162568; 

unsigned  ada_id_pkgS  =  0xl4E4C3C0; 

unsigned  text_pkgB  =  0xl61438AD; 

unsigned  text_pkgS  =  0xl4D28134; 

unsigned  excep_id_pkgB  =  0x2FE43381; 

unsigned  excep_id_pkgS  =  0x07CE7053; 

unsigned  op_id_pkgB  =  0x0899C528; 

unsigned  op_id_pkgS  =  0xl7A929DD; 

unsigned  psdl_id_pkgS  =  0x63062610; 

unsigned  psdl_id_seq_pkgS  =  0x307B3167; 

unsigned  generic_sequence_pkgB  -  0xlAFB7890; 

unsigned  generic_sequence_pkgS  =  0x50D2AB4F; 

unsigned  generic_buf fered_allocationB  =  0x2F5272CC 

unsigned  generic_buf fered_allocationS  =  0xlB10D9A2 

unsigned  shared_free_listB  -  0x706DBEEC; 

unsigned  shared_f ree_listS  “  0x2F799CB3; 

unsigned  text_ioS  =  0x69339E9B; 

unsigned  lookahead_pkgB  =  0x509D5DBB; 

unsigned  lookahead_pkgS  =  0x3072E4D5; 

unsigned  delimiter_pkgB  =  0x547FCDD5; 

unsigned  delimiter_pkgS  =  0x778 6FEA7; 

unsigned  io_exceptionsS  =  0x00345331; 
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unsigned  maxB  =  0x3F531C2E; 
unsigned  natural_set_pkgB  =  0x01F22FF3; 
unsigned  natural_set_pkgS  =  Ox6310C34F; 
unsigned  generic_set_pkgB  =  Ox603BE637; 
unsigned  generic_set_pkgS  =  OxlAB68AAO; 
unsigned  minB  -  0x3FB30C3A; 
unsigned  square_root_pkgB  =  0x24DD13BE; 
unsigned  square_root_pkgS  -  0x2Fl9C657; 
unsigned  excep_trigger_map_inst_pkgB  “  Ox72C07046; 
unsigned  excep_trigger_map_inst_pkgS  =  0x7E7E636C; 
unsigned  expression_pkgB  -  0x2E67FBAE; 
unsigned  expression_pkgS  =  0x2AE7C6E2; 
unsigned  psdl__id_set_subtype_pkgS  =  0x239A809F; 
unsigned  type_name_pkgB  =  0x6E2 69266; 
unsigned  type_name_pkgS  =  0x47 A4 4445; 
unsigned  generic_map_pkgB  =  0x48218C0B; 
unsigned  generic_map_pkgS  -  0x0103D8A7; 
unsigned  exec__guard_inap_inst_pkgB  =  0x73DEA6F8; 
unsigned  exec_guard_map_inst_pkgS  =  0x25128C28; 
unsigned  init_raap_inst_pkgB  =  0x4E225FB9; 
unsigned  init_niap_inst_pkgS  =  0x5BBElCA3; 
unsigned  itiillisec_pkgB  =  0x55AEC8E0; 
unsigned  millisec_pkgS  =  0x5CED9DE7; 
unsigned  op_id_set_inst_pkgB  =  0x3ADC9B96; 
unsigned  op_id_set_inst_pkgS  =  0x46D25749; 
unsigned  out_guard_map_inst_pkgB  =  0x2705AAD3; 
unsigned  out_guard_map_inst_pkgS  =  0x492BDDAl; 
unsigned  output_id__pkgB  =  0x4BlFED7  6; 
unsigned  output_id_pkgS  =  0x655E140B; 
unsigned  psdl_type_set_subtype__pkgS  =  0x2D37D42E; 
unsigned  tinier_op_itiap_inst_pkgB  -  0x74DBBD2  6; 
unsigned  timer_op_map_inst_pkgS  =  0x6DA26DDE; 
unsigned  timer_op_set_inst_pkgB  =  0x3A2EDF5D; 
unsigned  timer_op_set_inst_pkgS  =  0x480D4EA7; 
unsigned  timer_op_pkgB  =  0x3796F502; 
unsigned  timer_op_pkgS  ~  0xlEE86C5B; 
unsigned  timing_map_inst_pkgB  =  0x5DF5268C; 
unsigned  timing_map_inst_pkgS  -  0x044 1C90F; 
unsigned  trigger_map_inst_pkgB  =  0x4EFF82BD; 
unsigned  trigger_map__inst_pkgS  =  0x54BDC980; 
unsigned  trigger_j)kgB  =  0x33CllE91; 
unsigned  trigger_pkgS  =  0x435B0A43; 
unsigned  psdl_profileB  =  0x04C611ED; 
unsigned  psdl_profileS  =  0x3862EB47; 
unsigned  profile_calcB  =  0x76588AAC; 
unsigned  profile_calcS  =  0x678103B4; 
unsigned  profile_typesB  =  0x399FBFl6; 
unsigned  profile_typesS  -  0x251C5B64; 

unsigned  ada _ long_long_integer_text_ioB  =  0x6BAB00AC; 

unsigned  ada _ long_long_integer_text_ioS  =  0x599501C6; 

unsigned  sb_utilsB  =  0x5BlFB51B; 
unsigned  sb_utilsS  =  0x37153D56; 
unsigned  software_baseB  =  0x61405066; 
unsigned  software_baseS  =  0x578D938D; 
unsigned  haase_diagraniB  -  0x3EA4D858; 
unsigned  haase^diagramS  =  0x05CFBl89; 
unsigned  profile_filter_pkgB  =  0x70ElD69E; 
unsigned  profile_filter_pkgS  -  OxlCE30E50; 
unsigned  sig_matchB  =  0x51E7E79C; 
unsigned  sig_matchS  =  0x0C693582; 
unsigned  psdl_component_pkgB  =  0x4Cll89Bl; 
unsigned  psdl_component_pkgS  =  Ox5BB79EBO; 
unsigned  psdl_graph_pkgB  =  0x6121lEEC; 
unsigned  psdl_graph_pkgS  -  0xlBA0590E; 
unsigned  sig_match_typesB  =  0x04815981; 
unsigned  sig_match_typesS  =  0x57B0B379; 
unsigned  ordered_set_pkgB  =  0xlBl08DB7; 
unsigned  ordered_set_pkgS  =  0x3E04978C; 
unsigned  ordered_map_pkgB  =  0x0229C7F7; 
unsigned  ordered_map_pkgS  =  0x5 FEDS 3F5; 

unsigned  system _ exn_lliS  =  0xlC47lAl6; 

unsigned  psdl_ioB  =  0xlA68AB53; 
unsigned  psdl_ioS  =  0x01797F9A; 
unsigned  bool_ioB  -  0x7E6A024E; 
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unsigned  bool_ioS  =  0x063E6452; 

unsigned  ada _ text_io _ enumeration_auxB  =  0x599F0271; 

unsigned  ada _ text_io _ enumeration_auxS  =  0x2F4E9EFB; 

unsigned  ada _ charactersS  =  0xlB98lD87; 

unsigned  ada _ characters _ handlingB  =  0x3249DBC5; 

unsigned  ada _ characters _ handlings  =  0x2BCCA6F3; 

unsigned  ada _ characters _ latin_lS  =  0x16585895; 

unsigned  ada _ stringsS  =  0x26431503; 

unsigned  ada _ strings _ mapsB  =  0x4lEl5328; 

unsigned  ada _ strings  mapsS  =  0xl2F98AEB; 

unsigned  system _ bit_opsB  =  0x7DCD4BB2; 

unsigned  system _ bit_opsS  -  0x27196E60; 

unsigned  ada _ ^strings _ ^maps _ constantsS  =  0x78F85AAF; 

unsigned  system _ img_boolB  =  0x0D7DB36C; 

unsigned  system _ img_boolS  =  0x3BC0DD6D; 

unsigned  system _ val_boolB  =  0x78F78279; 

unsigned  system _ ^val_boolS  =  0x7EFA6F0A; 

unsigned  int__ioB  =  0x015F6910; 
unsigned  int_ioS  ~  0x790B0F0C; 
unsigned  tim_op_ioB  =  0xllAE93D7; 
unsigned  tim_op_ioS  =  0x793B888D; 

unsigned  system _ val_enumB  =  0x453EC23F; 

unsigned  system _ val_enumS  =  0x651DC7B6; 

unsigned  parserB  =  0x615CB17D; 
unsigned  parsers  ==  0x58DBA507; 
unsigned  parser_gotoS  =  0x37FlBAAB; 
unsigned  parser_lexB  =  0x75E4AE3C; 
unsigned  parser_lexS  =  0x4B529F9D; 
unsigned  parser_lex_dfaB  =  0x580EFl8A; 
unsigned  parser_lex_dfaS  =  0x700AA2B3; 
unsigned  parser_lex_ioB  =  0x6A470754; 
unsigned  parser_lex_ioS  =  0x2C68E4E2; 
unsigned  parser_tokensS  =  0x50546056; 
unsigned  parser_shift_reduceS  =  0x77047BE8; 
unsigned  psdl_program_pkgB  =  Ox6500F87E; 
unsigned  psdl_program_pkgS  =  0x7F08D07B; 

/* 

*  BEGIN  Object  file /option  list  ./max.o  ./min.o  . /a_strings . o  ./bool_io.o 

*  . /delimiter_pkg.o  ./int_io.o  . /lookahead_pkg.o  . /millisec_pkg.o 

*  . /parser_goto . o  . /parser_lex_dfa. o  . /parse r_lex_io.o  . /parser_shift_reduce . o 

*  ./sb_utils.o  . /shared_f ree_list . o  . /generic_buf fered_allocation. o 

*  . /ordered_set_pkg. o  . /square_root_pkg.o  . /generic_set_pkg.o 

*  . /generic_map_pkg. o  . /natural_set_pkg.o  . /generic_sequence_pkg.o 

*  . /ordered_map_pkg. o  . /profile_calc. o  ./text_pkg.o  . /ada_id_pkg. o 

*  , /psdl_id_pkg.o  . /psdl__id_seq_pkg.o  . /op_id_pkg . o  . /excep_id_pkg . o 

*  • /op_id_set_inst_pkg . o  . /output_id_pkg . o  . /timing_map_inst_pkg . o 

*  . /type_name_pkg. o  . /psdl_id_set_subtype_pkg.o  . /expression_pkg. o 

*  . /excep_trigger_map_inst_pkg . o  . /exec_guard_map_inst_pkg. o 

*  . /init_map_inst_pkg. o  . /out_guard_map_inst_pkg. o 

*  . /psdl_type_set_subtype_pkg.o  . /timer_op_pkg . o  . /tim_op_io.o 

*  . /timer_op_set_inst_pkg. o  . /timer_op_map_inst_pkg.o  . /trigger_pkg.o 

*  . /trigger_map_inst_pkg»o  . /psdl_concrete_type_pkg.o  . /parser_tokens . o 

*  . /parser_lex . o  , /psdl_graph_pkg. o  . /psdl_component_pkg.o 

*  . /component_id_types . o  . /psdl_program_pkg.o  ./parser.©  ./psdl_io.o 

*  . /candidate_types . o  . /sig_match_types .o  . /profile_filter_pkg. o  , /sig_match . o 

*  . /software_base . o  . /haase_diagram.o  . /psdl_profile . o  . /profile_types . o 

*  ./sb_init.o  -L./  -L/home/greg/PSOL_TYPE-May97/GNAT/ 

*  -L/home/greg/PSDL_TYPE-May97/GENERIC_TYPES/GNAT/ 

*  “L/home/greg/PSDL_TYPE-May97 /INSTANTIATIONS/GNAT/ 

*  “-L/usr/gnat/lib/gcC'-lib/i386-linux/2 ,7.2. 1/adalib/ 

*  -L/usr/lib/gcc-lib/i386'-linux/2. 7. 2. 1/adalib/  -Ignat  ENO  Object  file/option 

*  list 

*/ 
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APPENDIX  C  PSEUDO  ADA  SOURCE  CODE 


ADA  interface  between  the  C-H-  GUI  and  multilevel  filtering  routines. 


A.  SB_INTERFACE.ADS 

—  $Icl:  sb_interface .  ads,  V  1.2  1998/01/18  17:05:14  greg  Exp  $ 
--  sb__interf ace . ads  --  Software  Base  Search  Interface. 

—  Package  Spec  for  the  CAPS  software  base  ADA  interface. 

--  Naval  Postgraduate  School 
--  January  11,  1998 

—  Written  by  Gregory  L.  Meckstroth 


with  sb_utils; 
package  sb_interface  is 

type  AString  is  access  string; 

procedure  sb_init (sbroot :  in  sb_utils . String_Pointer; 

hfname:  in  sb_utils . String_Pointer ) ; 
pragma  export  (C,  sb_init,  "sb_init"); 

procedure  sb_search  (sbroot :  in  sb_utils .  String__Pointer; 

qfname:  in  sb_utils . String_Pointer; 
min_profile_rank:  in  out  float; 
min_signature_rank:  in  out  float; 
pf_file_buffer:  in  sb_utils.String_Pointer; 
sm_file_buffer :  in  sb_utils . String_Pointer) ; 

pragma  export  (C,  sb__search,  ”sb_search”)  ; 

end  sb  interface; 


B.  SB_INTERFACE.G 

—  $Id:  sb_interface . g, V  1.2  1998/01/18  17:05:14  greg  Exp  $ 

—  sb_interface.g  —  Software  Base  Search  Interface 

—  Package  Body  for  the  CAPS  software  base  ADA  interface. 

—  Entry  points:  IntPut,  Get_Char_Line,  Get_Char_Word,  C_to_Ada_String, 

—  Ada_Strcpy,  Display_Message_line,  Display_Message,  reformat. 

—  Naval  Postgraduate  School 

—  January  11,  1998 

—  Written  by  Gregory  L.  Meckstroth 


with  text_io;  use  text_io; 

with  ada. float_text_io;  use  ada. float_text_io; 
with  ada . integer_text_io; 
with  software_base; 
with  sb__utils; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 
with  profile_calc;  use  profile_calc; 
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with  psdl_profile;  use  psdl_profile; 

with  profile_types;  use  profile_types; 

with  component_id_types;  use  component_id_types; 

with  haase_diagram;  use  haase_diagram; 

with  candidate_types;  use  candidate_types; 

with  software_base; 

with  sig_match_types ;  use  sig_match_types; 
with  sig_match;  use  sig_match; 
with  a_st rings;  use  a_strings; 

package  body  sb_interface  is 


—  Procedure:  sb_init 

—  Description:  ”C"  language  Interface  for  software  base  initialization. 

procedure  sb_init (sbroot :  in  sb_utils . String_Pointer ; 
hfname:  in  sb_utils . String_Pointer)  is 
sb_di rename :  AString; 
header_name :  AString; 
nst  :  a_string; 
begin 

sb_utils . Display_Message_line ( "Initializing  Software  Base"); 
header_name  new  string' (sb_utils .C_to_Ada_String (hfname) ) ; 

sb_dir_name  new  string’(sb_utils.C_to_Ada_String(sbroot)); 

software_base . initialize (sb_dir_name . all,  header_name . all) ; 
sb_utils .Display_Message_line ("finished. ") ; 

nst  to_a ("Found") ; 

nst  nst  &  integer ' image (software_base .numComponents) ; 

nst  :=  nst  &  "  components  in"; 

nst  :=  nst  &  integer ' image (software_base .numOccupiedPartitions) ; 

nst  nst  &  "  partitions."; 

sb_utils . Display_Message_line (nst . s) ; 

end  sb  init; 


—  Procedure:  sb_search 

—  Description:  "C"  language  Interface  for  software  base  search. 

procedure  sb_search (sbroot :  in  sb_utils . String_Pointer; 

qfname:  in  sb_utils . String_Pointer; 
min_profile_rank :  in  out  float; 
min_signature_rank:  in  out  float; 
pf_file_buf fer :  in  sb_utils.String_Pointer; 
sm_file_buffer :  in  sb_utils .String_Pointer)  is 
min_pr:  float; 
min_sr:  float; 

the_candidates :  CandidateSet; 
sn,  the_branch,  another_branch:  SigMatchNode; 
q_ops,  c_ops:  OpWithProfileSeq; 
batch_file:  file_type; 
queries_dir,  results__dir :  a__string; 

query_filename,  sm._filename,  p_hist_filename,  sm_hist_f ilename :  a_string; 

candidate_filename :  string (1 . .256) ; 

length:  integer; 

temp_candidate :  Candidate; 

query_name,  pf_file,  sm__file:  AString; 

sb_dir_name:  AString; 

IO_buffer_file :  file_type; 
procedure  Cfiltering_doneCB; 

pragma  Import (C,  Cfiltering_doneCB,  "profile_filtering_doneCB _ Fv"); 

begin 

sb_dir_name  :=  new  string' (sb_utils .C_to_Ada_String (sbroot) ) ; 
query_name  :=  new  string' (sb_utils .C_to_Ada_String (qfname) ) ; 
pf_file  :=  new  string' (sb_utils .C_to_Ada_String (pf_file_buf fer) ) ; 
sm__file  :=  new  string' (sb_utils .C__to__Ada_String (sm_file_buf fer) ) ; 
min_pr  :=  min_profile_rank  -  0.0001; 
min_sr  :=  min_signature_rank  •-  0.0001; 

—  Reinitialize  the  search  database  from  the  save  initialization  data. 
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sb_utils . Display_Message_line { "Reinitializing  Software  Base") ; 
software_base  .  reinitialize  (sb_clir_name  .  all)  ; 
sb_utils . Display_Message_line ( "finished . " ) ; 

—  First  do  the  profile  filtering  to  reduce  the  number  of  components  that 

—  we  have  to  do  signature  mating  on. 

query_filename  :=  to_a(query_name.all); 
sb_utils . Display_Message ("PROCESSING  "); 

sb_utils . Display_Message_line (convert (text (query_filename) ) ) ; 
sb_utils .Display_Message ("Profile  Filtering..."); 

the_candidates  :=  software_base .profileFilter (convert (text (query_filename) ) ) ; 
sb_utils .Display_Message_line ("finished. ") ; 

—  Buffer  the  results  to  disk  so  that  the  "C++"  interface  can  display  it 

—  to  the  user. 

create  (IO__buffer_file,  out_file,  pf_file.all); 
set_output (IO_buf fer_file) ; 

put ( " Found  " ) ; 

ada. integer_text__io.put (software_base .numComponents,  0) ; 
put("  components  in  "); 

ada.integer_text_io.put (software_base .numOccupiedPartitions,  0) ; 
put_line("  partitions."); 

put ("There  are  "); 

ada . integer_text_io. put (candidate_set_pkg. size (the_candidates)  ,  0) ; 
put_line("  possible  candidates."); 
candidateSetPut (the_candidates)  ; 
new_line; 

set_output  (standard_output) ; 

close (IO_buffer_file) ; 

sb_utils . reformat (pf_file . all,  0) ; 

—  This  is  the  "C++"  callback  that  will  display  the  results. 

Cfiltering_doneCB; 

the_candidates  profileSkim(min_pr,  the_candidates) ; 

—  Now  do  the  signature  matching  on  the  components  that  pass  profile 

—  filtering.  Buffer  the  results  to  disk  for  the  "C++"  interface. 

create (IO_buffer_file,  out_file,  sm_file . all) ; 
set_output (IO_buf fer_f ile) ; 

if  candidate_set_pkg. size (the_candidates)  <=  0  then 
putC'O  candidates  have  profile  rank  >=  "); 
ada. float_text_io.put (min_pr,  2,  2,  0); 
set_output  (standard_output) ; 
close (IO_buf fer_file) ; 
return; 
end  if; 

sb_utils.Display_Message ("Signature  Matching. .."); 

ada.integer_text_io.put (candidate_set_pkg. size (the_candidates) ,  0) ; 
put("  candidates  have  profile  rank  >==  "); 
ada. float_text_io.put (min_pr,  2,  2,  0) ; 
new_line; 

foreach((c:  Candidate),  candidate_set_pkg . scan,  (the_candidates) , 

temp_candidate  software_base . signatureMatch (convert (text (query_filename) ), 

c ,  min_s  r ) ; 

software_base . getCandidateFilename (temp_candidate . component_id, 
candidate_filename,  length) ; 

for  i  in  1.. length  loop 

put (candidate_filename (i) )  ; 
end  loop; 
new_line; 

candidatePrint (temp_candidate) ; 

) 

set_output  (standard_output) ; 
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close { IO_buf fer_file) ; 
sb_utils . Display_Message_line ( "done”) ; 
sb_utils . reformat (sm_file . all,  0) ; 
end  sb_search; 
end  sb_interface; 

C.  SB  UTILS.ADS 


$Id:  sb__utils.ads,  V  1.2  1998/01/18  17:05:14  greg  Exp  $ 

—  sb_utils.ads  —  Software  Base  Search  Interface. 

Package  Spec  for  the  CAPS  software  base  ADA  utilities. 

—  Naval  Postgraduate  School 

—  January  11,  1998 

--  Written  by  Gregory  L.  Meckstroth 


with  system; 
package  sb_utils  is 

—  Pointer  to  C  char*  arguments 

subtype  String_Pointer  is  system. address; 

--  Put  and  integer  to  the  output  stream  (used  to  save  search  data) 
procedure  IntPut(int:  Integer); 

--  Get  and  integer  from  the  input  stream  (used  to  read  search  data) 
procedure  IntGet(int:  in  out  Integer); 

—  Get  a  line  that  is  terminated  with  a  (used  to  read  search  data) 

procedure  Get_Char_Line  (dine :  in  out  String;  last:  in  out  Integer); 

--  Get  a  word  from  the  input  steam  that  has  separator  characters  *]',  ’}'/ 

—  ' , ’ ,  and  ’ ; ' 

procedure  Get_Char_Word (cword:  in  out  String;  last:  in  out  Integer); 

—  Convert  a  "C”  string  (char*)  to  an  ADA  string. 

function  C_to_Ada_String (the_cstring:  in  String_Pointer)  return  String; 

—  Copy  an  ADA  string  to  a  "C"  string 

procedure  Ada_Strcpy (the_cstring:  in  String_Pointer;  the_adastring  :  string) 

—  Display  a  software  base  message  on  the  GUI  with  new  line 
procedure  Display_Message_line (message :  string); 

—  Display  a  software  base  message  on  the  GUI 
procedure  Display_Message (message :  string); 

—  Reformat  the  search  output  for  display  on  the  GUI 
procedure  reformat (filename :  string;  nskipcommas:  integer); 

end  sb  utils; 


D.  SB  UTILS.G 


—  $Id:  sb_utils.g,v  1.2  1998/01/18  17:05:14  greg  Exp  $ 

--  sb_utils.g  —  Software  Base  Search  Interface 

—  Package  Body  for  the  CAPS  software  base  ADA  utilities. 

—  Entry  points:  IntPut,  Get_Char_Line,  Get_Char_Word,  C_to_Ada_String, 

—  Ada_Strcpy,  Display_Message_line,  Display_Message,  reformat. 
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—  Naval  Postgraduate  School 

—  January  11,  1998 

—  Written  by  Gregory  L.  Meckstroth 


with  lookahead_pkg; 

with  text_io; 

with  ada . integer_text_io; 

package  body  sb_utils  is 

package  Int_IO  is  new  Text_IO. Integer_IO  (Num  ->  Integer); 

—  Put  and  integer  to  the  output  stream  (used  to  save  search  data) 

procedure  IntPut{int:  integer)  is 
begin 

Int_IO. Put (item  =>  int,  width  =>  4); 
end  IntPut; 

—  Get  and  integer  from  the  input  stream  (used  to  read  search  data) 

—  The  input  can  have  separators  that  confuse  the  ADA  10  package  so 

—  only  read  in  integers  numbers. 

procedure  IntGet(int:  in  out  Integer)  is 
use  lookahead_pkg; 

—  Assume  that  a  number  will  be  less  that  256  characters 
io_buf fer :  String ( 1 . .256) ; 
last_char:  Integer; 
last_int:  Integer; 
begin 

last__char  :=  0; 

while  (lookahead_p kg. Token  in  '-'..'9') 
loop  . 

last_char  :=  last_char  +  1; 

lookahead_pkg. Get_Char (io_buffer (last_char) ) ; 
end  loop; 

ada. integer_text_io.Get (io_buffer (1 . .last_char) ,  int,  last_int) ; 
end  IntGet; 

—  Get  a  line  that  is  terminated  with  a  ' ; '  (used  to  read  search  data) 

procedure  Get_Char_Line  (dine :  in  out  String;  last:  in  out  Integer)  is 
begin 

last  :=  0; 

while  lookahead_pkg. Token  /=  ' ;  ' 
loop 

last  :=  last+1; 

lookahead_pkg.Get_Char  (dine  (last)  )  ; 
end  loop; 

lookahead_pkg . Skip_Char ; 
end  Get_Char_Line; 

--  Get  a  word  from  the  input  stream  that  is  followed  by  a  separator  character 

procedure  Get_Char_Word (cword:  in  out  String;  last:  in  out  Integer)  is 
function  Is_Seperator (c:  in  Character)  return  Boolean  is 
begin 

if  c  =  or  c  =  ascii . r_bracket  or  c  =  or  c  =  then 
return  True; 
end  if; 
return  False; 
end  Is_Seperator; 
begin 

last  :=  0; 

while  not  Is_Seperator (lookahead_pkg. Token) 
loop 

last  :-  last  +  1; 

lookahead_pkg.Get_Char (cword (last)  ) ; 
end  loop; 

end  Get  Char  Word; 
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—  Convert  a  *'C”  string  (char*)  to  an  ADA  string. 

function  C_to_Ada_String ( the_cstring :  in  String_Pointer)  return  String  is 
function  Strlen(s  :  String_Pointer )  return  Integer; 
pragma  Import  (C,  Strlen,  "strlen”); 
nlen:  integer  :=  Strlen ( the_cstring) ; 
the_string :  String { 1 . . nlen) ; 
for  the_string  use  at  the_cstring; 
begin 

return  the_string; 
end  C_to_Ada_String; 

—  Copy  an  ada  string  to  a  "C"  string 

procedure  Ada_Strcpy (the_cstring:  in  String_Pointer;  the_adastring  :  string)  is 
last:  integer  :=  the_adastring’ last; 
cstring:  String { 1 .. last+1) ; 
for  cstring  use  at  the_cstring; 
begin 

for  i  in  l..last  loop 

cstring (i)  :=  the_adastring (i)  ; 
end  loop; 

cstring  (last+l)  :=  character '  firsth¬ 
and  Ada_Strcpy; 

—  Display  a  message  on  the  GUI  with  new  line 

procedure  Display_Message_line (message :  string)  is 
If :  string (1 . . 1 ) ; 
begin 

Display_Message (message) ; 
lf(l)  :=  ascii. If; 

Display_Message (If) ; 
end  Display_Message_line; 

—  Display  a  message  on  the  GUI 

type  AString  is  access  string; 
procedure  Display_Message (message :  string)  is 
procedure  Cdisplay (Cmsg:  in  out  AString); 

pragma  Import (C,  Cdisplay,  "display_message _ FPc”); 

Cmessage:  AString; 
begin 

Cmessage  new  string (1 . .message ' last+1) ; 
for  i  in  1 . .message ’ last  loop 
Cmessage  (i)  messaged); 
end  loop; 

Cmessage (message ’last+1)  :=  character ' first; 

Cdisplay (Cmessage) ; 
end  Display^Message; 

procedure  reformat ( filename :  string;  nskipcommas:  integer)  is 

procedure  CReformat ( fname :  in  out  AString;  skip:  in  out  integer); 

pragma  Import(C,  CReformat,  "Reformat _ FPCci"); 

Cfname:  AString; 

Cskip:  integer ; 
begin 

Cfname  :=  new  string (1 .. filename ' last+1) ; 

Cskip  :=  nskipcommas; 
for  i  in  1 .. filename ' last  loop 
Cfname(i)  :-  filename(i); 
end  loop; 

Cfname (filename ’last+1)  character'first; 

CReformat (Cfname,  Cskip); 
end  reformat; 

end  sb  utils; 
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APPENDIX  D  MISCELLANEOUS  SOURCE  FILES 


Help.txt  is  the  source  for  the  HelpMessages.  This  was  created  with  Microsoftw 
word  then  saved  as  HelpMessages.h  the  converted  to  a  C++  header  file. 


A.  HELP.TXT 


Search  and  retrieval  of  components  from  the  CAPS  software  base.  This 
dialog  box  displays  the  PSDL  query,  profile  filtering  and  signature 
matching  results.  The  input  consists  of  the  query  specification, 
minimum  profile  rank  and  minimum  signature  rank.  The  user  can  change 
the  minimum  rank  by  entering  a  new  value  in  the  appropriate  text 
window  The  query  file  name  can  be  changed  typing  the  new  name  in 
the  PSDL  Query  window.  After  entering  the  file  name  press  the  enter 
key  to  update  query  display.  The  query  must  be  stored  in  a  fil® 
the  search  routines  to  work.  If  the  user  does  not  supply  a  file 
name  the  default  query. psdl  will  be  used. 

After  running  the  search  the  user  can  view  the  results  and  select 
the  appropriate  component  by  pushing  the  toggle  button  next  to  the 
component  name.  Pushing  the  OK  button  will  return  the  selected 
component . 

The  Query  menu  allows  the  user  to  manage  the  PSDL  query. 

Starts  the  Syntax  Directed  Editor  to  input  a  new  query. 
Open  an  existing  query  file. 

Starts  the  Syntax  Directed  Editor  to  edit  the  current 
query. 

Save  the  current  query. 

Save  the  current  query  in  a  user  specified  file. 

Close  the  search  dialog. 

Exit  the  program. 

menu  allows  the  user  to  run  the  software  base  search. 
Start  the  software  base  search. 


New: 

Open: 

Edit: 

Save : 
Save As : 
Close : 
Exit : 

The  Search 
Start : 


Buttons . 
OK: 

Search: 
Cancel : 


Exits  the  dialog  and  returns  the  selected  component  name . 
Start  the  software  base  search. 

Exit  the  dialog. 


Initialize  components  in  the  CAPS  software  base.  This  dialog  box 
displays  the  PSDL  specification  and  component  file  list.  The  input 
consists  of  the  component  specification  in  PSDL  and  the  component 
file  list  The  spec  file  name  can  be  changed  by  typing  the  new  name  ,■ 
in  the  PSDL  Spec  window.  After  entering  the  file  name  press  the  enter 
key  to  update  the  spec  display. 

Each  component  in  the  Software  Base  is  stored  in  a  separate  directory. 
After  entering  all  files  for  a  component  the  user  can  initialize  the 
component  directory  structure  by  pressing  the  ’Init  DIR'  button  or 
through  the  Init  menu.  After  the  component  directory  is  initialized 
the  use  can  enter  another  component.  This  can  be  repeated  until  all 
components  have  been  entered.  Then  the  Software  Base  "^^st^be 
initialized  by  pressing  the  'init  SB'  button  or  through  the  Init  menu. 


All  component  files  are  copied  to  the  component  directory  no  user 
files  will  be  deleted. 


The  Spec  menu  allows  the  user  to  manage  the  PSDL  query. 

New:  Starts  the  Syntax  Directed  Editor  to  input  a  new  query. 


Open:  Open  an  existing  query  file. 
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Edit:  Starts  the  Syntax  Directed  Editor  to  edit  the  current  query. 
Save:  Save  the  current  query, 

SaveAs:  Save  the  current  query  in  a  user  specified  file. 

Close:  Close  the  search  dialog. 

Exit:  Exit  the  program. 

The  component  menu  allows  the  user  to  manage  the  component  file  list. 
Add  Component  files: 

Clear  Component  file  list: 

Clear  all: 

Buttons . 

Dismiss:  Close  the  init  dialog. 

Init  DIR:  Initialize  the  component  directory. 

Init  SB:  Run  the  ADA  initialization  for  the  Software  Base. 

Clear  FL:  Clear  the  file  list. 

Clear  ALL:  Clear  file  list  and  Component  specification. 


E.  MAKEFILE 


PSDL_TYPE_ROOT  =  /home/greg/PSDL__TyPE-May97 
GEN  “  m4  generator. m4 
DEL  =  /bin/rm  -f 

INCLUDES  =  -1$  (PSDL__TYPE_ROOT) /GNAT  \ 

-1$ {PSDL_TYPE_ROOT) /GENERIC_TYPES/GNAT  \ 
~I$ (PSDL_TYPE_ROOT) /INSTANTIATIONS/GNAT 

COMPILE. ada  =  gcc  ${ADAFLAGS)  $ (INCLUDES) 

.SUFFIXES:  .g  .adb 


$ (GEN)  $<  >  $*.adb 

$ (COMPILE. ada)  -c  $^.adb  $ (OUTPUT^OPTION) 

$ (DEL)  $* .adb  $* .ali  '  ' 

. g . adb : 

$ (GEN)  $<  >  $@ 

ADAFLAGS  =  -g 

WARNINGS  =  -Werror  -Wimplicit  -Wreturn-type  -Wunused  -Wswitch  -Wcomment  -Wformat  \ 
-Wchar-subscripts  -Wparentheses  -Wtemplate-debugging  -Wpointer-arith  \ 
“Wcast-align  -Wstrict-prototypes  -Wmissing-prototypes  -Wnested-externs  \ 
-Woverloaded-virtual  -Winline  -Wconversion  -Wmissing-declarations 

CXXFLAGS  =  -g  $ (WARNINGS)  -I/usr/include/g++ 

#  Don't  use  warnings  on  the  "ADA"  generated  "C"  code 
C FLAGS  =  -g 

LDFLAGS  *  -L/usr/XllR6/lib  -L/usr/gnat/lib/gcc--lib/i386“linux/2 . 7 . 2 . 1/adalib  \ 
-L/usr/lib/gcc-lib/i386-linux/2 .7.2. 1/adalib/  -L/home/greg/psdl_lib 
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LOADLIBES  =  -IXm  -IXpm  -IXt  -ISM  -IICE  -IXext  -1X11  -Ipsdl  -Ignat 

XGui_SRCS  =  Gui.C  SearchDialog. C  MaintenanceDialog . C  PromptDialog. C  Menu.C  SDE.C  \ 
DisplayProgress .C  Callbacks. C  Utils. C 

XGui_OBJS  =  Gui.o  SearchDialog . o  MaintenanceDialog . o  PromptDialog . o  Menu.o  SDE.o  \ 
DisplayProgress . o  Callbacks. o  Utils. o 

SB_OBJS  =  sb_interface.o  candidate_types .o  component__id_types . o  haase_diagram. o  \ 
profile_calc . o  profile_types . o  psdl_profile . o  sb_utils.o  sig_match.o  \ 
sig_match_types . o  software_base . o  profile_filter_pkg. o  b_ada_system. o 

XGui:  $(XGui_OBJS)  $(SB_OBJS) 

${LINK.C)  -o  XGui  $  (XGui__OBJS)  $(SB_OBJS)  $  (LOADLIBES) 

all:  XGui 

clean: 

$(DEL)  XGui  *.o  *.ali  *.adb  *.bak  core 
depend: 

makedepend  -I/usr/include  “I/usr/include/g++  $(XGui_SRCS) 
install : 

/bin/cp  -f  XGui  /home/greg/bin/demoXGui 
#  DO  NOT  DELETE  THIS  LINE  —  make  depend  depends  on  it. 
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APPENDIX  E  ADA  FILTERING  SOURCE  CODE 


The  following  appendix  is  the  ADA  source  code  for  Jeff  Herman’s  [1]  Profile 
Filtering  and  Signature  Matching.  It  is  included  here  because  some  of  the  routines  were 
modified  for  use  in  this  thesis  project.  The  following  files  were  modified: 

•  candidate_types.g 

•  componentidtypes.ads 

•  component_id_types.g 

•  haase_diagram.ads 

•  haase_diagram.g 

•  profile_types.ads 

•  profile_types.g 

•  psdl_profile.ads 

•  psdl_profile.g 

•  sig_match_types.g 

•  software_base.ads 

•  software_base.g 

A.  CANDIDATE_TYPES.ADS 


—  Package  Spec:  candidate^types 

with  generic_sequehce_pkg; 
with  ordered_set_pkg; 

with  component_id_types;  use  component_id_types; 
with  sig_match_types;  use  sig_match_types; 

package  candidate_types  is 

RANK_UNKNOWN :  constant  :=  -1.0; 

—  Candidate 

type  Candidate  is  record 
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profile_rank:  float; 
keyword_rank :  float; 

signature_matches :  SigMatchNodePtrSet ; 
coinponent_id :  Component  ID; 
end  record; 

function  candidateEqual (cl :  in  Candidate;  c2 :  in  Candidate)  return  boolean; 
function  candidateLessThan (cl :  in  Candidate;  c2 :  in  Candidate)  return  boolean; 
procedure  candidateAssign (cl :  in  out  Candidate;  c2 :  in  Candidate); 
procedure  candidatePut ( the_candidate :  in  Candidate); 
procedure  candidatePrint (the_candidate :  in  Candidate); 

function  newCandidate  return  Candidate; 

procedure  generateSigMatchHistogram ( filename :  in  string;  c:  in  Candidate); 


—  CandidateSequence 

—  Note:  should  use  addCandidate  to  add  a  candidate  to  the  CandidateSequence. 

addCandidate  keeps  the  CandidateSequence  sorted. 

package  candidate_sequence_pkg  is  new  generic_sequence_pkg ( 
t  =>  Candidate,  average_size  =>  4); 

subtype  CandidateSequence  is  candidate_sequence_pkg . sequence; 

function  candidateSequenceEqual  is 

new  candidate__sequence_pkg.generic_equal (eq  =>  candidateEqual); 

function  candidateSequenceMember  is 

new  candidate_sequence_pkg.generic_meinber (eq  =>  candidateEqual); 

procedure  candidateSequenceRemove  is 

new  candidate_sequence_pkg. generic_remove (eq  ->  candidateEqual); 

function  candidateSequenceSort  is 

new  candidate_sequence_pkg.generic_sort ("<"  =>  candidateLessThan); 

procedure  candidateSequencePut  is 

new  candidate__sequence_pkg.  generic_put  (put  =>  candidatePut); 

procedure  addCandidate (c:  in  Candidate;  cs:  in  out  CandidateSequence); 


—  CandidateSet 

package  candidate_set_pkg  is  new  ordered_set_pkg (t  =>  Candidate, 
eq  =>  candidateEqual,  "<"  =>  candidateLessThan) ; 

subtype  CandidateSet  is  candidate_set_pkg . set; 

procedure  candidateSetPut  is 

new  candidate_set_pkg.generic_put (put  =>  candidatePut); 

function  profileSkim(profile_threshold:  in  float; 

the_candidates :  in  CandidateSet)  return  CandidateSet; 

procedure  generateProfileHistogram ( filename :  in  string; 
the_candidates:  in  CandidateSet); 

end  candidate^types; 

B.  CANDIDATE_TYPES.G 


—  Package  Body:  candidate_types 


with  ada.text_io; 

with  ada . f loat_text_io; 

with  ada.integer_text_io; 

with  component_id_types;  use  component_id_types; 
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package  body  candidate_types  is 


—  Function:  candidateEqual 

function  candidateEqual {cl :  in  Candidate;  c2:  in  Candidate)  return  boolean  is 
begin 

return  cl . component_id  =  c2 . component_id; 
end  candidateEqual; 


—  Function:  candidateLessThan 

—  Description:  sort  candidates  in  rank  descending  order  (highest 

rank  first) . 

function  candidateLessThan (cl :  in  Candidate;  c2 :  in  Candidate)  return  boolean  is 
begin 

—  TODO 

if  cl .profile_rank  >  c2 .profile_rank  then 
return  true; 

—  the  followin  test  for  less-than  is  just  being  paranoid 

—  about  potential  float  equality  problems 
elsif  cl .profile_rank  <  c2 ,profile_rank  then 

return  false; 

else 

return  cl . component_id  <  c2 . component_id; 
end  if; 

end  candidateLessThan; 


—  Procedure;  candidateAssign 

—  Description:  makes  a  safe  copy  of  a  Candidate.  This  is  primarily 

necessary  because  of  the  SigMatchNodeSet 

procedure  candidateAssign (cl :  in  out  Candidate;  c2 :  in  Candidate)  is 
begin 

cl .profile_rank  :=  c2 ,profile_rank; 
cl,keyword_rank  :=  c2 . keyword_rank; 
cl . component_id  :=  c2 . component_id; 

sig_match_node_ptr_set_pkg . assign (cl . signature_matches, 
c2  .  signature__matches )  ; 
end  candidateAssign; 


—  Procedure:  candidatePut 

procedure  candidatePut (the_candidate :  in  Candidate)  is 
begin 

ada. text_io.put (" (  "); 

ada.integer_text_io.put (the_candidate .component_id,  0) ; 
ada . text_io .put ( ”  I  ") ; 

ada. float_text_io. put {the_candidate. prof ile_rank,  1,  2,  0); 
ada . text_io .put ( "  1  ") ; 

sigMatchNodePtrSetPut (the_candidate . signature_matches) ; 
ada . text_io .put ( "  )"); 
end  candidatePut; 


—  Procedure:  candidatePrint 

procedure  candidatePrint (the_candidate :  in  Candidate)  is 
begin 

ada . text_io .put ( "  Component  ID:  "); 

ada.integer_text_io.put (the_candidate.component_id,  0) ; 
ada . text_io . new_line ; 

ada. text_io.put ("  Profile  Rank:  "); 

ada. float_text_io. put (the_candidate .prof ile_rank,  1,  2,  0); 

ada. text_io.put  (”  Number  of  signature  match  solutions:  ") ; 
ada . integer_text_io . put ( sig_match_node_ptr_set_pkg . size ( 
the_candidate . signature_matches ) ,  0 )  ; 
ada . text_io . new_line ; 

sigMatchNodePtrSetPrint (the_candidate . signature_matches) ; 
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end  candidatePrint ; 


—  Function:  newCandidate 

function  newCandidate  return  Candidate  is 
return_val:  Candidate; 
begin 

return_val .profile_rank  RANK_UNKNOWN; 
return_val . keyword_rank  :=  RANK_UNKNOWN ; 

return_val . signature_matches  : =  sig_match_node_ptr_set_pkg. empty; 
return  return_val; 
end  newCandidate; 


—  generateSigMatchHistogram 

—  Description:  generates  histogram  data  of  the  signature  ranks  for  the 

set  of  signature  matches  and  saves  it  to  a  file  so  it  can  be 
read  by  a  charting  program.  The  format  is  one  line 
for  each  pair  where  the  first  item  of  the  pair  is  the 
profile  rank  and  the  second  item  is  the  number  of 
candidates  with  that  rank. 

procedure  generateSigMatchHistogram { filename :  in  string;  c:  in  Candidate)  is 
ft:  ada .  text__io.  file_type; 
last_rank:  float; 
count:  natural  :=  0; 
temp_snp:  SigMatchNodePtr; 

procedure  put Pair (the_rank:  float;  the_count:  natural)  is 
begin 

ada. float_text_io.put (ft,  the_rank,  1,  2,  0); 
ada . text_io.put ( ft,  "  ”); 
ada. integer_text_io.put (ft,  the_count) ; 
ada. text_io.new_line (ft) ; 
end  putPair; 

begin 

ada. text_io.create (ft,  ada . text_io . out_file,  filename); 

if  sig_match_node_ptr_set_pkg. size (c . signature_matches)  =  0  then 
ada. text_io. close (ft) ; 
return; 
end  if; 

temp_snp  :=  sig_match_node_ptr_set_pkg. fetch (c. signature_matches,  1); 
last_rank  :=  temp_snp . signature_rank; 

foreach( (snp:  SigMatchNodePtr),  sig_match_node_ptr_set_pkg. scan, 

( c . signature_matches ) , 
if  snp . signature_rank  /=  last_rank  then 
putPair (last_rank,  count); 
last_rank  :-  snp. signature_rank; 
count  :=  1; 

else 

count  :=  count  +  1; 
end  if; 

) 

putPair (last_rank,  count); 

ada . text_io . close ( f t ) ; 
end  generateSigMatchHistogram; 


—  Procedure :  addCandidate 

procedure  addCandidate (c :  in  Candidate;  cs :  in  out  CandidateSequence)  is 
begin 

candidate_sequence_pkg. add (c,  cs) ; 
cs  :=  candidateSequenceSort (cs)  ; 
end  addCandidate; 


—  Function:  profileSkim  (for  CandidateSet) 
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—  Description:  filters  out  the  candidates  that  do  not  meet  the  given 
profile  threshold. 

function  profileSkim(profile_threshold:  in  float; 

the_candidates :  in  CandidateSet )  return  CandidateSet  is 
return_val:  CandidateSet; 
begin 

return_val  :=  candidate_set_pkg . empty; 

foreach{{c:  Candidate),  candidate_set_pkg . scan,  (the_candidates ) , 
if  c .profile_rank  >=  profile_threshold  then 
candidate_set_pkg.add(c,  return_val) ; 
end  if; 

) 

return  return_val; 
end  profileSkim; 


—  Procedure:  generateProfileHistogram 

—  Description:  generates  histogram  data  of  the  profile  ranks  for  the 

set  of  candidates  and  saves  it  to  a  file  so  it  can  be 
read  by  a  charting  program.  The  format  is  one  line 
for  each  pair  where  the  first  item  of  the  pair  is  the 
profile  rank  and  the  second  item  is  the  number  of 
candidates  with  that  rank. 

procedure  generateProfileHistogram( filename :  in  string; 
the_candidates :  CandidateSet)  is 
ft:  ada . text_io . file_type; 
last_rank:  float; 
count:  natural  :=  0; 
temp_candidate :  Candidate; 

procedure  putPair (the_rank :  float;  the_count :  natural)  is 
begin 

ada. float_text_io.put (ft,  the_rank,  1,  2,  0); 
ada. text_io.put (ft,  "  ”); 
ada.integer_text_io.put (ft,  the_count) ; 
ada . text_io . new_line (ft) ; 
end  putPair; 

begin 

ada . text_io . create ( ft ,  ada . text_io . out_f ile ,  filename ) ; 

if  candidate_set_pkg. size (the_candidates)  =  0  then 
ada , text_io . close (ft) ; 
return; 
end  if; 

temp_candidate  :=  candidate_set_pkg. fetch (the_candidates,  1); 
last_rank  :=  temp_candidate .profile_rank; 

foreach((c:  Candidate),  candidate_set_pkg. scan,  (the_candidates) , 
if  c .profile_rank  /=  last_rank  then 
putPair (last_rank,  count); 
last_rank  :=  c.profile_rank; 
count  : =  1 ; 
else 

count  count  +  1; 
end  if; 

) 

putPair (last_rank,  count); 

ada . text_io . close ( f t ) ; 
end  generateProfileHistogram; 

end  candidate_types; 

C.  COMPONENT_ID_TYPES.ADS 


Package  Spec:  component_id_types 
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with  gnat.io;  use  gnat.io; 

with  generic_map_pkg; 
with  generic_set__pkg; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 
with  sb_utils; 

with  psdl_profile;  use  psdl_profile; 
package  component_id_types  is 

—  Component ID 

subtype  ComponentID  is  integer; 

procedure  component IDPut (c_id:  ComponentID); 


—  Component 

—  Note:  Make  sure  to  use  createComponent  to  instantiate  a  new  Component. 

This  will  ensure  that  generics_mapping  is  initialized. 

type  Component  is  record 
psdl_filename :  text; 
generics__mapping:  GenericsMap; 
end  record; 

function  createComponent  return  Component; 

procedure  addGenericsMapping {generic_type_id;  psdl_id; 

actual_type__id:  psdl_id;  the_component :  in  out  Component); 

function  componentEqual (cl :  in  Component;  c2 :  in  Component)  return  boolean; 

procedure  component Put (the_component :  in  Component); 
procedure  componentGet (the_component :  out  Component); 


—  Component I DMap 

package  component_id_map_pkg  is  new  generic_map_pkg { 
key  =>  ComponentID, 
result  =>  Component, 
eq_key  => 

eq_res  =>  ComponentEqual, 
average_size  =>  8); 

subtype  Component I DMap  is  component_id_map_pkg.map; 

—  These  raise  an  execption 

““  procedure  componentIDMapPut  is  new  component__id_map_pkg.generic_put ( 
key_put  ->  put,  res_put  ~>  component Put ) ; 

—  procedure  componentIDMapFilePut  is  new  component_id_map_pkg.generic_file_put ( 

—  key_put  =>  put,  resjput  =>  component Put) ; 

procedure  componentIDMapPut {Comp_I DMap:  Component I DMap ) ; 


—  Component I DSet 

package  component_id__set_pkg  is  new  generic_set_pkg  { 
t  ==>  ComponentID, 
average_size  =>  8, 

eq  =>  ”=»)  ; 

subtype  ComponentIDSet  is  component_id_set_pkg. set; 
procedure  componentIDSetPut  is 

new  component_id_set_pkg. generic_put (put  =>  sb_utils . IntPut ) ; 

procedure  componentIDSetFilePut  is 

new  component_id_set_pkg.generic_file_put (put  =>  componentIDPut) ; 
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procedure  componentIDSetGet  is 

new  component_id_set_pkg.generic_input {input  =>  sb_utils . IntGet) ;  — gnat. io. put) 
end  component_id_types; 

D.  COMPONENT_ID_TYPES.G 


—  Package  Body:  coinponent_id_types 

with  text_io; 

with  ada . integer_text_io; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 
package  body  component_id_types  is 
package  Int_IO  is  new  Text_IO. Integer_IO  (Num  =>  Integer); 


—  Procedure:  component I DPut 

procedure  component IDPut (c_id:  ComponentID)  is 
begin 

ada.integer_text_io.put (c_id,  0) ; 
end  component I DPut; 


—  procedure:  component I DMap Put 

procedure  component IDMapPut (Comp_IDMap:  Component I DMap)  is 
map_si2e:  integer; 

begin 

foreach ( (the_comp_id:  ComponentID;  the_component :  Component), 
component_id_map_pkg . scan,  (Comp_IDMap) , 

Int_I0. Put (the_comp_id,  0) ; 
text_io.put (";  "); 

text_io.put (convert (the_component.psdl_filename) ) ; 
text_io.put {";  "); 

map_size  :=  generics_map_p kg . size (the_component . gene rics_mapping) ; 
if  map_size  <  1  then 
text_io . put ( " ; ” ) ; 
else 

genericsMapPut (the_component .generics_mapping) ; 
end  if; 

text_io . new_line ; 

) 

end  component IDMapPut; 


Procedure:  createComponent 

function  createComponent  return  Component  is 
return_val:  Component; 
begin 

generics_map_pkg. create (empty,  return_val . generics_mapping) ; 
return  return_val; 
end  createComponent; 


—  Procedure:  addGenericsMapping 

procedure  addGenericsMapping (generic_type_id:  psdl_id; 

actual_type_id:  psdl_id;  the_component :  in  out  Component)  is 
begin 

generics_map_pkg . bind {generic_type_id,  actual_type_id, 
the_component .generics_mapping) ; 
end  addGenericsMapping; 


—  Function:  componentEqual 
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function  componentEqual (cl :  in  Component;  c2 :  in  Component)  return  boolean  is 
begin 

if  not  eq (cl . psdl_filename,  c2 .psdl_filename )  then 
return  false; 
end  if; 

return  generics_map_pkg . equal (cl . generics_mapping,  c2 .generics_mapping) ; 
end  componentEqual; 


““  Procedure:  componentPut 

procedure  componentPut (the_component :  in  Component)  is 
begin 

text_io. put (convert (the_component .psdl_filename) ) ; 
text_io.put ("  I  ”); 

genericsMapPut (the_component .generics_mapping) ; 
end  componentPut; 


—  Procedure:  componentGet 

procedure  componentGet (the_component :  out  Component)  is 
filename:  string (1 .. 256) ; 
begin 

text_io . get ( filename) ; 

— the_component .psdl_filename  :=  text ( filename) ; 

— genericsMapGet (the_coraponent . generics_mapping) ; 
end  componentGet; 

end  component_id_types ; 

E.  HAASE_DIAGRAM.ADS 


—  Package  Spec:  haase_diagram 


with  generic_map_pkg; 

with  profile_types;  use  profile_types; 

with  component_id__types;  use  component_id_types; 

package  haase_diagram  is 


—  Types 

—  type  HaaseNode  is  private; 

—  type  HaaseDiagram  is  private; 


—  HaaseNode 

type  HaaseNode  is  record 
key:  ComponentProfile; 
components:  ComponentIDSet; 
children:  ComponentProfileSet; 

end  record; 

function  haaseNodeEqual (hnl :  in  HaaseNode;  hn2 :  in  HaaseNode) 
return  boolean; 

procedure  haaseNodeAssign (hnl :  in  out  HaaseNode;  hn2 :  in  HaaseNode); 

procedure  haaseNodePut (the_haase_node :  in  HaaseNode); 

procedure  haaseNodeGet  (the__^haase_^node :  in  out  HaaseNode;  last^node:  in  out  boolean); 

procedure  haaseNodePrint (the_haase_node :  HaaseNode); 
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—  HaaseDiagram 

package  haase_node_map_pkg  is  new  generic_map_pkg ( 
key  =>  Component Pro file, 
result  =>  HaaseNode, 
eq_key  ->  componentProfileEqual, 
eq_res  =>  haaseNodeEqual, 
average^size  =>  8); 

subtype  HaaseDiagram  is  haase_node_map_pkg .map; 

—  procedure  haaseDiagramPut  is  new  haase_node__map_pkg . generic_put ( 

—  key_put  =>  componentProfilePut,  res_put  =>  haaseNodePut) ; 

--  procedure  haaseDiagramFilePut  is  new  haase_node_map_pkg. generic_f ile_put ( 

—  key  put  =>  componentProfilePut,  res_put  =>  haaseNodePut) ; 

procedure  haaseDiagramPut (the_haase_diagram:  HaaseDiagram); 

—  procedure  haaseDiagramGet  is  new  haase_node_map_pkg. generic_input { 

key  input  =>  componentProfileGet,  res__input  ==>  haaseNodeGet) ; 

procedure  haaseDiagramGet (diagram:  in  out  HaaseDiagram); 

procedure  haaseDiagramPrint (the__haase_diagram:  HaaseDiagram); 

procedure  generateGML ( the_haase_diagram:  in  HaaseDiagram; 
filename:  in  string); 


—  Operations 

function  createHaaseNode (key :  in  ComponentProfile)  return  HaaseNode; 
function  createHaaseDiagram  return  HaaseDiagram; 

procedure  addComponent (the_comp_id:  in  ComponentID; 
the_haase_node :  in  out  HaaseNode); 

procedure  addChild (the_child_key :  in  ComponentProfile; 
the_haase_node :  in  out  HaaseNode); 

procedure  addHaaseNode ( the_haase_node :  in  HaaseNode; 
the_haase_diagram:  in  out  HaaseDiagram) ; 

procedure  addBaseNodes ( the_haase_diagram:  in  out  HaaseDiagram); 

procedure  connectNodes (the_haase_diagram:  in  out  HaaseDiagram); 


--  private 

end  haase^diagram; 

F.  HAASE_DIAGRAM.G 


—  Package  Body:  haase_diagram 


with  text_io;  use  text_io; 
with  generic_map_pkg; 

with  profile_types;  use  profile_types; 
with  component_id_types;  use  component_id_types; 
with  psdl_profile;  use  psdl_profile; 
with  software_base; 

package  body  haase_diagram  is 
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—  Function:  createHaaseNode 

—  Description:  create  and  initialize  a  HaaseNode  for  use. 

function  createHaaseNode (key :  in  CoraponentProf ile)  return  HaaseNode  is 
return_val:  HaaseNode; 
begin 

prof ile_id_sequence_pkg. assign (return_val. key,  key) ; 
return_val . components  :=  component_id_set_pkg . empty; 
return_val .children  :=  component_profile_set_pkg . empty; 
return  return_val; 
end  createHaaseNode; 


—  Function:  createHaaseDiagram 

Description:  create  and  initialize  a  HaaseDiagram  for  use. 

function  createHaaseDiagram  return  HaaseDiagram  is 
begin 

return  haase_node_map_pkg . create { 

createHaaseNode (prof ile_id_sequence_pkg. empty) ) ; 
end  createHaaseDiagram; 


—  Function:  addComponent 

—  Description:  add  a  ComponentID  to  the  HaaseNode. 

procedure  addComponent (the_comp_id:  in  ComponentID; 

the_haase_node :  in  out  HaaseNode)  is 
begin 

component_id_set_pkg , add ( the_comp_id,  the_haase_node . components ) ; 
end  addComponent; 


—  Function:  addChild 

—  Description:  add  a  ComponentProfile  that  represents  the 

key  to  a  child  HaaseNode  to  the  HaaseNode. 

procedure  addChild (the_child_key:  in  ComponentProfile; 

the_haase_node :  in  out  HaaseNode)  is 
begin  ^  , 

component_prof ile_set_pkg . add ( the_child_key ,  the_haase_node . children) 

end  addChild; 


—  Function:  addHaaseNode 

Description:  add  a  HaaseNode  to  the  HaaseDiagram. 

procedure  addHaaseNode (the_haase_node :  in  HaaseNode; 
the_haase_diagram:  in  out  HaaseDiagram)  is 
temp_key:  ComponentProfile; 
begin 

prof ile_id_sequence_pkg. assign (temp_key,  the_haase_node . key) ; 
haase_node_map_pkg.bind (temp_key,  the_haase_node,  the_haase_diagram) ; 
end  addHaaseNode; 


—  Procedure:  addBaseNodes 

—  Description:  add  base  nodes  for  the  nodes  already  in  the  diagram. 

This  is  done  by  adding  a  node  for  each  profile  in 

the  key  for  each  node  in  the  diagram.  Note,  duplicates 

will  not  be  added. 

procedure  addBaseNodes (the_haase_diagram:  in  out  HaaseDiagram)  is 
new_diagram:  HaaseDiagram; 
new_node :  HaaseNode; 
new_key:  ComponentProfile; 
begin 
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new_diagram  :=  createHaaseDiagram; 

haase_node_map_pkg. assign (new_diagram,  the_haase_diagrain)  ; 

new_key  :=  prof ile_id_sequence_pkg, empty; 

foreach ( (p_id:  ProfilelD) , 

prof  ile_lookup_table__pkg .  res_set_pkg .  scan, 
{software_base.getProfileIDs) , 
addProfileID{p_id,  new_key) ; 

if  not  haase_node_map_pkg. member {new_key,  the_haase_diagram)  then' 
new_node  :=  createHaaseNode (new_key) ; 
addHaaseNode (new_node,  new_diagram) ; 
end  if; 

new_key  :=  prof ile_id_sequence_pkg . empty; 

) 

haase_node_map_pkg. assign (the_haase_diagram,  new_diagram) ; 

haase_node_map_pkg. recycle (new_diagram) ; 
end  addBaseNodes; 


““  Procedure:  connectNodes 

—  Description:  connect  nodes  in  diagram.  Invariant: 

n2  is  nl's  child  iff  subbag (nl . key,  n2.key)  and 
there  is  no  node  n3  such  that  subbag (nl . key,  nS.key) 
and  subbag (n3 . key,  n2.key). 

Note,  an  entirely  new  diagram  is  constructed  because 
--  scan  returns  copies  of  the  nodes  in  the_haase_^diagram, 

not  the  actual  nodes. 

procedure  connectNodes {the_haase_diagram:  in  out  HaaseDiagram)  is 
new_node :  HaaseNode; 
new_diagram:  HaaseDiagram; 
f ound_n3 :  boolean; 
begin 

new_diagram  createHaaseDiagram; 

foreach ( (nl_key:  ComponentProfile;  nl:  HaaseNode), 

haase_node_map_pkg. scan,  (the_haase_diagram) , 
new_node  :=  createHaaseNode {nl_key) ; 
haaseNodeAssign (new_node,  nl)  ; 

foreach ( (n2_key:  ComponentProfile;  n2:  HaaseNode), 

haase_node_map_pkg. scan,  (the_haase_diagram) , 
if  not  haaseNodeEqual (nl, n2)  then 
if  subbag (nl_key,  n2_key)  then 
found_n3  :=  false; 

foreach ( (n3_key:  ComponentProfile;  n3 :  HaaseNode), 

haase_node_map_pkg. scan,  (the_haase_diagram) , 
if  not  found_n3  then 

if  (not  haaseNodeEqual (nl, n3) )  and 

(not  haaseNodeEqual (n2,n3) )  then 
if  subbag (nl_key,  n3_key)  and 

subbag (n3_key,  n2_key)  then 
found_n3  :=  true; 
end  if; 
end  if; 
end  if; 

) 

if  not  found_n3  then 

addChi Id ( n2_ke  y ,  ne w_node ) ; 
end  if; 
end  if; 
end  if; 

) 

addHaaseNode (new_node,  new_diagram) ; 

) 

haase_node_map_pkg . assign (the_haase_diagram,  new_diagram) ; 
haase_node_map_pkg. recycle (new_diagram) ; 
end  connectNodes; 


—  Function:  haaseNodeEqual 
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—  Description:  checks  for  equality  of  two  haase  nodes  by 
comparing  the  keys . 

function  haaseNodeEqual (hnl :  in  HaaseNode;  hn2 :  in  HaaseNode) 
return  boolean  is 
begin 

return  componentProf ileEqual (hnl , key,  hn2.key); 
end  haaseNodeEqual; 


—  Procedure:  haaseNodeAssign 

—  Description:  creates  a  duplicate  of  hn2 . 

procedure  haaseNodeAssign (hnl :  in  out  HaaseNode;  hn2 :  in  HaaseNode)  is 
begin 

prof ile_id_sequence_pkg . assign (hnl . key,  hn2 . key) ; 
component_id_set_pkg . assign (hnl . components,  hn2 . components) ; 

—  component_profile_set_pkg . assign (hnl . children,  hn2 . children) ; 
end  haaseNodeAssign; 


—  Procedure:  haaseNodePut 

procedure  haaseNodePut (the_haase_node :  in  HaaseNode)  is 
begin 

componentProfilePut (the_haase_node . key) ; 
componentIDSetPut (the_haase_node .components)  ; 
componentProfileSetPut (the_haase_node .children) ; 
end  haaseNodePut; 


--  Procedure:  haaseNodeGet 

procedure  haaseNodeGet (the_haase_node :  in  out  HaaseNode;  last_node:  in  out  boolean)  is 
first_key:  ProfilelD; 
temp_comp_profile :  Component Profile; 
begin 

componentProfileGet  (temp_comp__profile) ; 

first_key  profile_id_sequence_pkg. fetch (temp_comp_profile,  1) ; 
if  first_key  >=  0  then 
last_node  :=  False; 

the_haase_node  :=  createHaaseNode (temp_comp_profile) ; 
component IDSetGet (the_haase_node . components) ; 
componentProf ileSetGet (the_haase_node . children) ; 
else 

last_node  True; 
end  if; 

end  haaseNodeGet; 


—  Procedure:  haaseNodePrint 

procedure  haaseNodePrint (the_haase_node :  in  HaaseNode)  is 
begin 

put ("Key:  ”) ; 

componentProfilePut (the_haase_node . key) ; 
new_line; 

put ( "Components :  " ) ; 

componentIDSetPut {the_haase_node .components) ; 
new_line; 

put ("Children:  "); 

componentProfileSetPut (the_haase_node . children) ; 
new_line; 

end  haaseNodePrint; 


Procedure:  haaseDiagramPrint 

procedure  haaseDiagramPrint (the_haase_diagram:  in  HaaseDiagram)  is 
begin 

foreach ( (node_key :  ComponentProf ile;  node:  HaaseNode), 
haase_node_map_pkg . scan,  (the_haase_diagram) , 
haaseNodePrint (node) ; 
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new_line; 

) 

new_line/ 

end  haaseDiagramPrint/ 


—  Procedure:  haaseDiagramPut 

procedure  haaseDiagramPut {the_haase_diagr am:  in  HaaseDiagram)  is 
begin 

foreach ( (node_key :  ComponentProfile;  node:  HaaseNode), 
haase_nodejnaap_pkg.scan,  (the_haase_diagram) , 
haaseNodePut (node) ; 
new_line/ 

) 

new_line; 

end  haaseDiagramPut; 


—  Procedure;  haaseDiagramGet 

procedure  haaseDiagramGet (diagram:  in  out  HaaseDiagram)  is 
node;  HaaseNode; 
last__node :  boolean; 

begin 

loop 

haaseNodeGet (node,  last_node) ; 
if  last_node  then 
exit; 
end  if; 

addHaaseNode (node,  diagram) ; 
end  loop; 

end  haaseDiagramGet; 


—  Procedure :  generateGML 

—  Description:  generate  a  GML  file  to  graphically  represent  the 

HaaseDiagram. 

procedure  generateGML (the_haase_diagram;  in  HaaseDiagram; 
filename;  in  string)  is 
id:  natural  :*=  0;  —  unique  ID  counter 
the_id:  natural; 
gml_file:  file_type; 

function  new_id  return  natural  is 
begin 

id  id  +  1; 
return  id; 
end  new_id; 

package  temp_map_pkg  is  new  generic_map_pkg ( 
key  =>  ComponentProfile, 
result  =>  natural, 
eq_key  =>  componentProfileEqual, 
eq_res  => 

average_size  =>  8); 
subtype  tempMap  is  temp_map_pkg.map; 

t emp_map :  tempMap ; 

begin 

create (gml_file,  out_file,  filename); 
put (gml_file,  "graph  [  id  "); 
put  ( gml__f ile ,  integer  ’  image  (new_id)  ) ; 
put_line (gml_file,  "  directed  1"); 

temp_map_pkg . create (id,  temp_map ) ; 

—  make  the  nodes 

foreach ( (node_key ;  ComponentProfile;  node;  HaaseNode), 
haase_node_map_pkg . scan,  ( the_haase_diagram) , 
put (gml_file,  "node  [  id  "); 
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the_id  :=  new_id; 

put (gml^file,  integer ' image (the_id) ); 
put {gml_file,  "  label  """); 
componentProfileFilePut {gml_file,  node . key) ; 
put_line(gml_file,  ]"); 

temp_map_pkg.bind (node . key,  the_id,  temp_map) ; 


—  make  the  edges 

foreach ( (node^key :  ComponentProfile;  node:  HaaseNode), 
haase_node_map_pkg . scan,  (the_haase_diagram) , 
foreach{ {child_key:  ComponentProfile)  , 

component_profile_set_pkg. scan,  (node .children) , 
put (gml^file,  "edge  [  id  "); 
put (gml^file,  integer ’ image (new^id) ) ; 
put (gml_file,  "  source  "); 

put (gml_file,  integer 'image (temp_map_p kg. fetch (temp_map, 
node . key) ) ) / 

put (gml_file,  "  target  "); 

put (gml_file,  integer ' image (temp_map_pkg, fetch (temp_map, 
child_key) ) ) ; 
put_line (gml_file,  "  ]  ")  ; 

) 

) 

put_line ( gml_f i 1 e ,  " ] " ) ; 
close (gml_file) ; 

temp_map_pkg. recycle (temp_map) ; 
end  generateGML; 

end  haase_diagram; 


G.  PROFILE_CALC.ADS 


—  Package  Spec:  profile_calc 

—  This  package  contains  functions  and  types  that  support  the  computation 

—  of  profiles  from  numeric  representations  of  signatures. 

—  Description  of  numeric  signatures:  Positive  integers  represent 

—  instances  of  non-generic  types  in  the  signature.  Negative  integers 

—  represent  instances  of  generic  types  in  the  signature.  Finally, 

—  a  0  is  used  to  terminate  the  array  of  integers  representing  the 

—  signature. 

—  Examples  of  numeric  signatures: 

—  [integer,  char,  float  ->  integer]  *==>  [1,2, 3, 1,0] 

—  [integer,  generic,  float  ->  float]  ==>  [1,-1, 2, 3,0] 

—  [genericl,  generic2  ->  generic2]  ==>  [-1,-2, -2,0] 

—  Profiles  are  sequences  of  integers. 

—  Generic  Types: 

—  Generic  types  cause  more  than  one  profile  to  be  generated  for  a 

—  single  signature.  Hence,  computeArrayProfileWithGenerics  returns  an 

—  array  of  ArrayProfiles,  ProfileValues,  bound  by  NumProfiles. 

—  ArrayProfiles  are  terminated  with  PROFILE_TERMINATOR.  For  example, 

—  the  profile  [3, 1,1,2]  is  returned  as  [3, 1, 1, 2, -99] . 

—  Eventually  a  different  method  for  handling  generic  types  will  be 

—  employed  and  will  likely  do  away  with  the  ArrayProfile  data  type. 


with  profile_types/  use  profile_types; 
package  profile__calc  is 
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—  Types 

MAX_SIG_LENGTH:  constant  :=  100; 

MAX_PROFILE_LENGTH:  constant  :=  100; 

MAX_PROFILE_VARIATIONS :  constant  :=  100;  —  for  generic  types 
PROFILE_TERMINATOR:  constant  :=  -99; 

subtype  SignatureLengthRange  is  Positive  range  1 . .MAX_SIG_LENGTH; 
subtype  ProfileLengthRange  is  Positive  range  1 .  .MAX^PROFILE^LENGTH^- 
subtype  ProfileVariationRange  is  Positive  range  1 .  .MAX^PROFILE^VARIATIONS^- 

type  Signature  is  array  (SignatureLengthRange)  of  Integer; 

type  ArrayProfile  is  array  (ProfileLengthRange)  of  Integer; 

type  ArrayProfiles  is  array  (ProfileVariationRange)  of  ArrayProfile; 


—  Functions 

function  computeProfile (T :  in  Signature)  return  Profile; 
function  computeArrayProfile (T:  in  Signature)  return  ArrayProfile; 

—  note  NumProfiles  should  be  0 . .MAX_PROFILE_VARIATIONS,  not  Natural 
procedure  computeArrayProfileWithGenerics ( 

T:  in  Signature; 

ProfileValues :  out  ArrayProfiles; 

NumProfiles:  out  Natural); 

function  printSignature (sig:  Signature)  return  SignatureLengthRange; 
function  printArrayProfile (prof :  ArrayProfile)  return  ProfileLengthRange; 

end  profile_calc; 

H.  PROFILE  CALC.G 


—  Package  Body:  profile_calc 
with  gnat.io;  use  gnat.io; 
with  profile_types ;  use  profile__types; 
package  body  profile_calc  is 


—  Function:  convertToSequence 

—  Description:  helper  function  to  convert  an  ArrayProfile  (an 

array  of  ints  terminated  with  PROFILE_TERMINATOR) 
to  a  Profile  (a  sequence  of  ints) . 

function  convertToSequence (Prof :  ArrayProfile)  return  Profile  is 
return_val:  Profile; 
i,  count:  ProfileLengthRange; 

begin  : 

count  :=  1; 

while  Prof (count)  PROFILE_TERMINATOR  and  count  <«  MAX_PROFILE_LENGTH  loop 
count  :=  count  +  1; 
end  loop; 

count  :“  count  -  1; 

return_val  :=  0; 

for  i  in  1.. count  loop 

return_val  :-  return_val  +  (long_long__integer  (Prof  (i)  )  * 

(10  **  (count-i))); 
end  loop; 

return  return_val; 
end  convertToSequence; 

function  printSignature (Sig:  Signature)  return  SignatureLengthRange  is 
Num:  SignatureLengthRange; 
begin 
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Num  :=  1; 

Put {"["); 

while  Sig(Num  +1)  /=  0  loop 
Put  (Sig (Num) ) ; 
if  Sig (Num  +2)  /=  0  then 
Put  (",  "); 
end  if; 

Num  Num  4-  1; 
end  loop; 

Put  (”  “>  "); 

Put  (Sig(Num)); 

PutC']  ")/ 
return  Num; 
end  printSignature; 

function  printArrayProfile (Prof ;  ArrayProfile)  return  ProfileLengthRange  is 
Num:  ProfileLengthRange; 
begin 

Num  :=  1; 

Put(”[") ; 

while  Prof  (Num)  /=  PROFILE_TERMINATOR  and  Num  <  MAX_PROFILE_LENGTH  loop 
Put  ( Prof (Num) ); 

if  Prof (Num  +  1)  /«  PROFILE_TERMINATOR  then 
Put  (",  "); 
end  if; 

Num  :=  Num  +  1; 
end  loop; 

Put (”]"); 
return  Num; 

end  printArrayProfile; 

function  computeProfile (T:  Signature)  return  Profile  is 
begin 

return  convertToSequence (computeArrayProfile (T) )  ; 
end  computeProfile; 

function  computeArrayProfile (T :  Signature)  return  ArrayProfile  is 
Result:  ArrayProfile; 

Result_Count  :  Integer; 

NumResSort:  Integer; 

NumOneSorts :  Integer; 

I,J:  Integer; 

L:  SignatureLengthRange; 

SortValues:  array  (SignatureLengthRange)  of  Integer; 

SortNums:  array  (SignatureLengthRange)  of  Integer; 

NumSorts:  Integer; 

Found:  Boolean; 
begin 

—  Compute  Profile [1],  Total  Number  of  Sorts. 

Result_Count  :=  1; 

J  :=  0; 


—  set  L  to  number  of  elements  in  T 

—  note,  this  is  the  first  number  in  the  profile 
I  :=  1; 

while  (Td)  /=  0  and  I  <=  MAX_SIG_LENGTH)  loop 
I  :=  I  +  1; 
end  loop; 

L  :==  I  -  1; 

Result (Result_Count)  :-  L; 

—  Compute  Profile[2],  Number  of  Times  Result  Sort  in  Signature. 

—  note,  Nguyen’s  thesis  just  uses  0  or  1  to  indicate  if  the 

—  result  sort  is  used  in  the  input  arguments.  Representing 

—  the  number  of  times  the  result  sort  is  used  is  finer  resolution, 

—  which  should  partition  of  the  software  base  better, 

NumResSort  :=  0; 

for  I  in  1 , .L  loop 
if  T(I)  =  T(L)  then 

NumResSort  :=  NumResSort  +  1; 
end  if; 
end  loop; 

Result_Count  :=  Result  Count  +  1; 
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—  Herman 

—  Result (Result_Count)  :=  NumResSort; 

—  Nguyen 

if  NumResSort  >  1  then 

Result {Result_Count)  :=  1; 

else 

Result  {Res ult__Count)  :=  0; 

end  if; 

—  Herman  Improvement  Profile [3] 

—  Add  the  number  of  occurrences  of  the  type  being  defined  by  the 

—  component  (if  the  component  is  a  type) . 

— Result_Count  :=  Result_Count  +  1; 

— Result (Result_Count)  :«  T(L+2); 

—  Herman  Improvement  Profile [4 .. 8] 

—  Add  the  number  of  occurrences  of  types  in  the  basic  sort  groups 
Result_Count  ;=  Result_Count  +  1; 

Result (Res ult_Count)  ;=  T(L+3); 

Result^Count  :=  Result_Count  +  1; 

Result (Res ult_Count)  :=  T(L+4)/ 

— Result_Count  Result_Count  +1; 

— Result (Res ult_Count)  :=  T(L+5); 

Result_Count  :=  Result_Count  +  1; 

Result (Result_Count)  ;=T(L+6); 

Result_Count  :=  Result_Count  +  1/ 

Result (Result_Count)  :=  T(L+7); 

—  Generate  Helper  Arrays 

—  SortValues:  an  ordered  SET  of  sort  values 

e.g.  if  the  signature  input  T  was  [1,  1,  2,  1,  0] 

SortValues  would  be  [1,  2] 

—  NumSorts:  the  cardinality  of  the  ordered  set  SortValues 

e.g.  in  the  above  example,  NumSorts  would  be  2 

—  SortNums:  the  cardinality  of  each  sort  in  SortValues 

—  e.g.  in  the  above  example,  SortValues  would  be  [3,  1] 
for  I  in  1..L  loop 

SortNums  (I)  :==  0; 

end  loop; 

SortValues (1)  :=  T(l) ; 

NumSorts  :=  1; 

SortNums (1)  1; 

for  I  in  2..L  loop 
Found  :=  False; 
for  J  in  1.. NumSorts  loop 

if  T(I)  =  SortValues (J)  then 

SortNums (J)  SortNums (J)  +  1/ 

Found  :=  True; 
end  if; 
end  loop; 
if  not  Found  then 

NumSorts  :=  NumSorts  +1; 

SortValues (NumSorts)  T(I); 

SortNums (NumSorts)  ;=  1; 
end  if; 
end  loop; 

—  Becomes  Profile [9] 

—  Compute  Profile[3],  Number  of  Sort  Groups  of  Size  One. 
NumOneSorts  :=  0; 

for  I  in  1.. NumSorts  loop 
if  SortNums (I)  =  1  then 

NumOneSorts  NumOneSorts  +  1; 
end  if; 
end  loop; 

Result_Count  :=  Result_Count  +  1; 

Result (Re sult_Count)  :=  NumOneSorts; 

—  Becomes  Profile [10 . .N] 

—  Compute  Profile [4 . .N] ,  Sequence  of  Sizes  of  the  Sort  Groups  that 

—  Have  Size  Greater  than  One. 
for  I  in  0..L-2  loop 
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for  J  in  l..NuinSorts  loop 
if  SortNumsfJ)  =  L-I  then 

Result_Count  Result_Count  +  1; 

Result (Result_Count)  :=  L-I; 
end  if; 
end  loop; 
end  loop; 

—  Terminate  the  ArrayProfile 
Result  {Result_Count+l)  :=  PROFILE_TER]yiINATOR; 
return  Result; 
end  computeArrayProfile; 

procedure  computeArrayProfileWithGenerics { 

T:  in  Signature; 

ProfileValues :  out  ArrayProfiles; 

NumProf iles :  out  Natural)  is 
I,  G,  J,  K:  Integer; 

L:  SignatureLengthRange; 

NewSig:  Signature; 

NumGenerics:  Integer; 

NumDif fGenerics :  Integer; 

Found:  Boolean; 

Val j :  Integer; 

GenericPos:  array  (SignatureLengthRange)  of  Integer; 

ProfileVal:  ArrayProfile; 
begin 

NumGenerics  :=  0; 

NumProf iles  :=  0; 

Valj :=0; 

NumDif fGenerics  ;=  0; 

G  :=  0; 

J  :=  0; 

K  ;=  0; 

—  set  L  to  number  of  elements  in  T 
I  :=  1; 

while  (T(I)  /=  0  and  I  <=  MAX_SIG_LENGTH)  loop 
I  :=  I  +  1; 
end  loop; 

L  I  -  1/ 

for  I  in  1 . .L  loop 
if  T(I)  <  0  then 

if  T(I)  <  NumDiffGenerics  then 
NumDif fGenerics  :=  T{I); 
end  if; 

NumGenerics  NumGenerics  +  1; 

GenericPos (NumGenerics)  :=  I; 
end  if; 
end  loop; 

NumDiffGenerics  -1  *  NumDiffGenerics  ; 
if  NumGenerics  =  0  then 
NumProfiles  ;=  1; 

ProfileVal  computeArrayProfile (T) ; 

ProfileValues (1)  :=  ProfileVal; 
else 

for  G  in  1 . .NumDif fGenerics  loop 
for  I  in  1 . .L  loop 
NewSig (I)  T (I) ; 
end  loop; 

NewSig (L+1)  :=  0; 
for  J  in  1 . .L  loop 

for  I  in  1 . .NumGenerics  loop 

if  T (GenericPos (I) )  >=  -1  *  G  then 
NewSig (GenericPos (I) )  :=  T(J); 
end  if; 
end  loop; 

—  These  following  lines  are  good  for  debugging. 

—  They  print  out  all  the  combinations  of  signatures  computed 
Valj:=  printSignature (NewSig) ; 

New  Line; 
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ProfileVal  :=  computeArrayProfile (NewSig) ; 
if  NumProfiles  =  0  then 
NumProfiles  :=  1; 

ProfileValues (1)  :=  ProfileVal; 
else 

Found  False; 

for  K  in  1 . .NumProfiles  loop 

if  ProfileValues (K)  -  ProfileVal  then 
Found  :=  True; 
end  if; 
end  loop; 
if  not  Found  then 

NumProfiles  :=  NumProfiles  +  1; 
ProfileValues (NumProfiles)  :=  ProfileVal; 
end  if; 
end  if; 
end  loop; 
end  loop; 
end  if; 

end  computeArrayProf ileWithGenerics ; 
end  profile_calc; 

I.  PROFILE_FILTER_PKG.ADS 


—  Package  Spec:  prof ile_f liter 


with  haase_diagram;  use  haase_diagrara; 
with  candidate_types;  use  candidate_types; 
with  profile_types;  use  profile_types; 

package  profile_filter_pkg  is 

function  f indCandi dates (query_profile :  in  ComponentProfile; 
the_haase_diagram:  in  HaaseDiagram)  return  CandidateSet; 

end  profile_filter_pkg; 

J.  PROFILE_FILTER_PKG.G 


—  Package  Body:  profile_filter 


with  haase_diagram;  use  haase__diagram; 

with  candidate_types;  use  candidate_types; 

with  component_id_types;  use  component_id_types; 

package  body  profile_filter_pkg  is 


—  Function:  findCandidates 

—  Description;  for  each  profile  in  query_profile  start  at  the  base-node 

that  represents  that  profile  and  perform  a  depth-first 
search  on  the  haase-diagram.  At  each  node  calculate  the 
profile  rank,  create  a  Candidate  with  that  rank  and  the 
components  in  that  node,  and  add  it  to  return_val. 

function  findCandidates (query_profile :  in  ComponentProfile; 

the_haase_diagram:  in  HaaseDiagram)  return  CandidateSet  is 
return_val:  CandidateSet; 
base__node:  HaaseNode; 
base_node_key :  ComponentProfile; 
num__matches :  natural; 
i,  j:  natural; 

procedure  DFSFW(hn:  in  HaaseNode)  is 
temp_candidate :  Candidate; 
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begin 

—  count  the  number  of  profiles  in  the  node  that 

—  are  also  in  the  query 
num_matches  :=  0; 

i  1; 

j  1; 

while  i  <=  prof ile_id_sequence_pkg. length (query_j)rofile)  and 
j  <=  profile_id_sequence_pkg. length (hn. key)  loop 
if  profile_id_sequence_pkg. fetch (query_profile,  i)  = 
prof ile_id_sequence_pkg . fetch (hn. key,  j)  then 
num_matches  :=  num_matches  +  1; 
i  :=  i  +  1; 
j  :=  j  +  1; 

elsif  profilelDLessThan (profile_id_sequence_pkg. fetch {query_profile,  i) , 
prof ile_id_sequence_pkg . fetch (hn. key,  j))  then 
i  ;=  i  +  1; 
else 

j  j  +  1; 
end  if; 
end  loop; 

—  add  the  node's  components  to  return  val 

foreach ( {comp_id:  ComponentID) ,  comp one nt_id_set_p kg. scan, 

(hn, components) , 

temp_candidate  ;=  newCandidate; 
temp_candidate .profile_rank  :~ 

float  (numj[natches)  /  float  (profile_id_sequence_pkg. length {query_jDrofile)  ) 
temp_candidate .  component_id  :=  comp_id; 
candidate_set__pkg.add{temp_candidate,  return_val)  ; 

) 

—  recursively  call  DFSFW  on  each  child 

foreach(  (child:  ComponentProfile) ,  coraponent_profile_set__pkg. scan, 

(hn .children) , 

DFSFW  (haase_node_map_pkg . fetch (the_haase_diagram,  child) ) ; 

) 

end  DFSFW; 
begin 

return_val  candidate_set_pkg.empty; 

foreach ( (p_id:  ProfilelD) ,  prof ile_id_sequence_pkg. scan,  {query_profile) , 
base_node_key  :=  profile_id_sequence_pkg. empty; 
addProfilelD (p_id,  base_node_key) ; 

if  haase_node__map_pkg.member  (base_node_key,  the_haase_diagram)  then 
base_node  := 

haase_node_map_pkg. fetch (the_haase_diagram,  base_node_key) ; 

DFSFW (base_node) ; 
end  if; 

) 

return  return_val; 
end  findCandidates; 

end  profile_filter_pkg; 


K.  PROFILE  TYPES.ADS 


—  Package  Spec:  profile_types 


with  gnat.io; 

with  generic_sequence_pkg; 
with  generic_setjpkg; 
with  ordered_mapjpkg; 

package  profile_types  is 

procedure  myIntPut(i:  integer); 
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Profile 


—  package  int_sequence_pkg  is  new  generic_sequence_pkg ( 

—  t  =>  integer,  average__size  =>  4); 

—  subtype  Profile  is  int_sequence_pkg. sequence; 

—  function  profileEqual  is  new  int_sequence__pkg .  generic_equal  {eq  => 

—  function  profileLessThan  is  new  int_sequence__pkg.generic_less_than{"<"  *=> 

—  procedure  profilePut  is  new  int_sequence_pkg . generic_put (put  =>  gnat . io. put) ; 

—  procedure  profileFilePut  is  new  int_sequence_pkg. gene ric_put (put  =>  myIntPut) ; 

subtype  Profile  is  long_long_integer; 

function  profileEqual  (pi,  p2 :  Profile)  return  boolean; 
function  profileLessThan (pi,  p2:  Profile)  return  boolean; 
procedure  profilePut (p:  Profile); 
procedure  profileFilePut (p:  Profile); 
procedure  profileGet (p:  in  out  Profile); 


—  ProfilelD 

subtype  ProfilelD  is  integer; 

function  profileIDLessThan(pl,  p2 :  ProfilelD)  return  boolean; 
procedure  profilelDPut (p_id:  ProfilelD); 
procedure  profilelDFilePut (p_id:  ProfilelD); 
procedure  profilelDGet (p_id:  in  out  ProfilelD); 


—  ProfileLookupTable 

DEFAULT_PROFILE_ID:  constant  :«  -1; 

package  profile_lookup_table_pkg  is  new  ordered_map_pkg ( 
key  «>  Profile, 
result  =>  ProfilelD, 
eq_key  =>  profileEqual, 
eq_res  => 

"<"  =>  profileLessThan) ; 

subtype  ProfileLookupTable  is  prof ile_lookup_table_jDkg. map; 

procedure  profileLookupTablePut  is  new  profile_lookup__table_pkg.genericjput ( 
key__put  ->  profilePut,  res_put  =>  profilelDPut); 

procedure  profileLookupTableGet  is  new  profile_lookup_table_pkg. generic_input ( 
key_input  =>  profileGet,  res_input  =>  profile I DGet) ; 

procedure  profileLookupTableFilePut  is  new  profile_lookup_table_pkg, generic_file_j>ut ( 
=>  profilePut,  res_put  =>  profilelDPut); 


—  ComponentProfile 

—  Note:  should  use  addProfilelD  to  add  a  profile  id  to  the  rComponentProfile . 

addProfilelD  keeps  the  ComponentProfile  sorted  which  is  important 
for  equality  and  subbag  (multiset  subset)  testing. 

package  profile_id_sequence_pkg  is  new  generic_sequence_pkg ( 
t  “>  ProfilelD,  average__si2e  =>  4); 

subtype  ComponentProfile  is  prof ile_id_sequence_pkg. sequence; 

function  componentProfileEqual  is 

new  profile_id_sequence_pkg.generic_equal (eq  =>  "=”); 

function  componentProfileMember  is 

new  profile_id_sequence_pkg.generic_member (eq  =>  "="); 

procedure  componentProfileRemove  is 

new  profile_id_sequence_pkg.generic_remove (eq  =>  ”="); 

function  componentProfileSort  is 

new  prof ile_id__sequence_pkg. generic_sort  ( "<"  =>  "<") ; 
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function  componentProfileLessThan  is 

new  profile_id_sequence_j)kg. generic_less_than ( "<"  =>  profilelDLessThan) ; 

procedure  component Pro file Put  is 

new  prof ile_id_sequence_pkg .generic_put (put  =>  profilelDPut) ; 

procedure  componentProfileFilePut  is 

new  profile_id_sequence_pkg. generic_file_put (put  =>  profilelDFilePut) ; 

procedure  componentProfileGet  is 

new  pro f ile_id_sequence_pkg. generic_input (input  =>  profilelDGet ) ; 
function  subbag  is 

new  profile_id_sequence__pkg. generic_subsequence  (eq  => 

package  component_profile_set_pkg  is  new  generic_set_pkg ( 

t  =>  ComponentProfile,  eq  =>  componentProfileEqual,  average_si2e  =>  8) ; 
subtype  ComponentProfileSet  is  component_profile_set_pkg. set; 

procedure  componentProfileSetPut  is 

new  component_profile_set_pkg. generic_put (put  ->  componentProfilePut) ; 

procedure  componentProfileSetGet  is 

new  coinponent_profile_set__pkg.  generic_input  (input  =>  componentProfileGet); 

procedure  addProfileID(p_id:  in  ProfilelD;  cp:  in  out  ComponentProfile) ; 
procedure  addProfiles (new_profiles :  in  ComponentProfile; 
target:  in  out  ComponentProfile); 

end  profile_types; 

L.  PROFILE_TYPES.G 


—  Package  Body:  profile_types 


with  text__io; 

with  ada . long_long_integer_text_io; 
with  ada.integer_text_io; 
with  software_base; 
with  sb__utils; 

package  body  profile_types  is 

package  Int_IO  is  new  Text_IO. Integer_IO  (Num  =>  Integer); 


—  Procedure:  myIntPut 

procedure  myIntPut(i:  integer)  is 
begin 

ada.integer_text_io.put (i,  0); 
end  myIntPut; 


—  Procedure:  addProfilelD 

—  Description:  adds  a  ProfilelD  to  a  ComponentProfile  by  adding  the 

ProfilelD  to  the  sequence  then  sorting  the  sequence. 

procedure  addProfilelD (p_id:  in  ProfilelD;  cp:  in  out  ComponentProfile)  is 
begin 

profile_id_sequence_pkg. add(p_id,  cp) ; 
cp  componentProfileSort (cp) ; 
end  addProfilelD; 


—  Procedure:  addProfiles 

—  Description:  appends  the  profiles  from  new_profiles  to  target  then 

sorts  target. 
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procedure  addProfiles (new_prof iles :  in  ComponentProfile/ 
target:  in  out  ComponentProfile)  is 

begin 

target  :=  prof ile_id_sequence_j)kg. append (target,  new_profiles) ; 
target  :=  componentProfileSort (target) ; 
end  addPro files; 


—  Function:  profileEqual 

function  profileEqual (pi,  p2:  Profile)  return  boolean  is 
begin 

return  pi  =  p2; 
end  profileEqual; 


—  Function:  profileLessThan 

function  profileLessThan (pi,  p2:  Profile)  return  boolean  is 
begin 

return  pi  <  p2; 
end  profileLessThan; 


—  Function:  profilePut 

procedure  profilePut (p :  Profile)  is 
begin 

ada.long_long_integer_text_io.put (p,0)  ; 
end  profilePut; 


—  Function:  profileGet 

procedure  profileGet (p:  in  out  Profile)  is 
begin 

ada.long_long_integer_text_io.get (p) ; 
end  profileGet; 


—  Function:  profileFilePut 

procedure  profileFilePut (p :  Profile)  is 
begin 

profilePut (p) ; 
end  profileFilePut; 


—  Function:  profilelDLessThan 

function  profilelDLessThan (pi,  p2:  ProfilelD)  return  boolean  is 
begin 

return  software_base .getProfile (pi)  <  software_base.getProfile (p2) 
end  profilelDLessThan;  : 


—  Procedure:  profilelDPut 

procedure  profilelDPut (p_id:  ProfilelD)  is 
begin 

ada . integer_text_io.put (p_id,  0) ; 
end  profilelDPut; 


—  Procedure:  profilelDGet 

procedure  profilelDGet (p_id:  in  out  ProfilelD)  is 
j :  integer; 
begin 

sb_util s . IntGet ( j ) ; 
p_id  :=  j; 
end  profilelDGet; 
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—  Function:  profilelDFilePut 

procedure  profilelDFilePut (p_id:  ProfilelD)  is 
begin 

profilelDPut (p_id) ; 
end  profilelDFilePut; 


—  Function:  createProfileLookupTable 

function  createProfileLookupTable  return  ProfileLookupTable  is 
begin 

return  profile_lookup_table_pkg. create (0)  ; 
end  createProfileLookupTable; 

end  profile_types; 


M.  PSDL_PROFILE.ADS 


—  Package  Spec:  psdl_profile 

—  This  package  contains  functions  and  types  that  support  the  collection 

—  of  operation  profiles  from  a  component  specified  in  PSDL. 


with  text_io; 

with  generic_sequence_pkg; 
with  generic_map_pkg; 
with  generic_set_pkg; 
with  ordered_set_pkg; 

with  psdl_concrete_type_pkg;  use  psdl__concrete_type_pkg; 
with  psdl_component__pkg;  use  psdl_component_pkg; 

with  profile_types;  use  profile_types; 

package  psdl_profile  is 


—  Types 


—  OpWithProfile 

type  OpWithProfile  is  record 
op:  operator; 

ProfilelD; 

end  record; 

function  opWithProfileEqual {owpl :  in  OpWithProfile;  owp2 :  in  OpWithProfile) 
return  boolean; 

function  opWithProfileLessThan (owpl :  in  OpWithProfile;  owp2:  in  OpWithProfile) 
return  boolean; 

procedure  opWithProfilePut (owp:  in  OpWithProfile); 


—  OpWithProfileSeq 

—  Note:  should  use  addOpWithProfile  to  add  an  OpWithProfile  to  the  sequence. 

addOpWithProfile  keeps  the  sequence  sorted. 

package  owp_sequence_pkg  is  new  generic_sequence_pkg ( 
t  =>  OpWithProfile,  average_size  *>  4); 
subtype  OpWithProfileSeq  is  owp_sequence_pkg . sequence; 

function  opWithProfileSeqEqual  is 
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new  owp_sequence__pkg.generic_equal(eq  =>  opWithProfileEqual)  ; 

function  opWithProfileSeqMernber  is 

new  owp_sequence_pkg. generic_member (eq  =>  opWithProfileEqual); 

procedure  opWithProfileSeqRemove  is 

new  owp_sequence_pkg . generic_remove {eq  ->  opWithProfileEqual)/ 

function  opWithProfileSeqSort  is 

new  owp_sequence_pkg.generic_sort  (”<”  =>  opWithProfileLessThan) ; 

procedure  opWithProfileSeqPut  is 

new  owp_sequence_pkg. generic_put (put  =>  opWithProfilePut) ; 

procedure  opWithProfileSeqPrint {owp_seq:  in  OpWithProfileSeq) / 

procedure  addOpWithProfile (owp:  in  OpWithProfile; 
owp_seq:  in  out  OpWithProfileSeq) ; 


—  OpWithProfileSet 

package  owp_set__pkg  is  new  ordered_setjpkg  ( 

t  =>  OpWithProfile,  eq  =>  opWithProfileEqual, 

=:>  opWithProfileLessThan)  ; 
subtype  OpWithProfileSet  is  owp_set_pkg, set; 

procedure  opWithProfileSetPut  is 

new  owp_set_j)kg. gene ric_put (put  =>  OpWithProfilePut); 

procedure  opWithProfileSetPrint (owp_set :  in  OpWithProfileSet); 


—  GenericsMap 

—  Description:  this  is  a  mapping  of  generic  type  identifiers  to 

—  actual  types  that  exist  in  the  component.  For  example,  if  the 

—  PSDL  type  Stack  has  one  generic  type  named  Item  and  has  methods 

—  that  have  parameters  that  use  the  types  natural.  Stack,  and 

—  boolean  then  there  would  be  four  different  instantiations  of 

—  Stack  in  the  software  base  representing  the  four  possible 

—  mappings  for  Item:  1.  Item  «=>  natural,  2.  Item  ~>  Stack, 

—  3.  Item  =>  boolean,  4.  Item  =>  Item.  Option  4  really  just 

—  means  that  Item  is  mapped  to  a  type  that  does  not  appear  in  the 

—  component.  Suppose  Stack  used  two  generic  types.  In  that  case 

—  each  instantiation's  GenericsMap  would  have  two  entries,  one 

—  for  each  generic  type.  In  such  a  case  the  number  of  different 

—  instantiations  present  in  the  software  base  grows  rapidly; 

—  specifically  the  number  would  be  the  cross  product  of  the  number 

—  of  types  across  each  generic  type. 

package  genericsj:tiap_pkg  is  new  generic_map_pkg  { 
key  =>  psdl_id, 
result  =>  psdl_id, 
eq_key  =>  eq, 
eq_res  =>  eq, 
average_size  *>  8); 

subtype  GenericsMap  is  generics_niap_pkg.map; 

procedure  psdl_idPut  (the__id:  in  psdl_id)  ; 

procedure  psdl_idGet (the^id:  in  out  psdl_id) ; 

procedure  genericsMapPut  is  new  generics_map_pkg.generic_put ( 
key_put  =>  psdl_idPut,  res_j3ut  =>  psdl_idPut)  ; 

procedure  genericsMapGet  is  new  generics_map_pkg.generic_input ( 
key_input  =>  psdl_idGet,  res_input  =>  psdl_idGet) ; 


—  GenericsMapSet 


package  generics_map_set_pkg  is  new  generic_set_pkg { 
t  =>  GenericsMap,  eq  =>  gene rics_map_pkg. equal) ; 
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subtype  GenericsMapSet  is  generics_inap_set_pkg,set; 

procedure  genericsMapSetPut  is 

new  generics_map_set_pkg. gene ric_put (put  =>  genericsMapPut) ; 


—  Functions 

function  getGenericsMaps (filename ;  in  string)  return  GenericsMapSet; 

function  getComponentProfile (filename :  in  string; 

generics_mapping:  in  GenericsMap)  return  Component Profile; 

function  getOpsWithProfiles (filename :  in  string; 

generics_mapping:  in  GenericsMap)  return  OpWithProfileSeq; 

function  getOpsWithProfiles (filename :  in  string; 

generics_mapping;  in  GenericsMap)  return  OpWithProfileSet; 

end  psdl_profile; 

N.  PSDL_PROFILE.G 


—  Package  Body:  psdl_profile 


with  a_s brings ; 

with  sb_utils; 

with  text_pkg; 

with  text_io;  use  text_io; 

with  profile_types;  use  profile_types; 
with  profile_calc;  use  prof ile_calc; 

with  psdl_io; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 

with  psdl_component_pkg;  use  psdl_component_pkg; 

with  psdl_program__pkg;  use  psdl_program_pkg; 

with  psdl_id_set_subtype_pkg; 

with  psdl_id__pkg; 

with  software_base; 

with  generic_map_pkg; 
with  generic_sequence_pkg; 

package  body  psdl__profile  is 

package  signature_seq_pkg  is  new  generic_sequence_pkg ( 
t  *=>  Signature,  average_size  =>  2); 
subtype  SignatureSequence  is  signature_seq_pkg . sequence; 


—  Function:  opWithProfileEqual 

function  opWithProfileEqual (owpl :  in  OpWithProfile;  owp2:  in  OpWithProfile) 
return  boolean  is 
begin 

—  if  not  prof ileEqual (owpl . op_profile,  owp2 . op_profile)  then 
if  owpl . op_profile  /=  owp2 .op_profile  then 
return  false; 
end  if; 

return  eq(owpl.op,  owp2.op); 
end  opWithProfileEqual; 


—  Function:  opWithProfileLessThan 

function  OpWithProfileLessThan (owpl :  in  OpWithProfile; 
owp2 :  in  OpWithProfile) 
return  boolean  is 
begin 

—  return  profileLessThan  (owpl . op_profile,  owp2  .op_profile) ; 
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return  profileLessThan{software_base.getProfile  (owpl.op_profile) , 
software_base .getProfile (owp2 .op_profile) ) ; 
end  opWithProfileLessThan; 


—  Function:  opWithProfilePut 

procedure  opWithProfilePut (owp:  in  OpWithProfile)  is 
begin 

put ("{"); 

put  {convert  (name  (owp. op) )  ) ; 
put(":  "); 

foreach ( (the_id;  psdl_id/  the_tn;  type_^name) , 

type_declaration_pkg. scan,  (inputs (owp. op) ) , 
put (convert ( the_tn . name ) ) / 
put("  "); 

) 

put(”“>  "); 

foreach ( (the_id:  psdl_id;  the_tn:  type_name) , 

type_declaration_pkg. scan,  (outputs (owp. op) ) , 
put (convert (the_tn.name) ) ; 
put{"  "); 

) 

put ("I  ")/ 

profilePut  (software__base . getProfile  (owp. op_pro file)  ) ; 
put (”)")/ 

end  OpWithProfilePut; 


—  Function:  opWithProfileSeqPrint 

procedure  opWithProfileSeqPrint (owp_seq:  in  OpWithProfileSeq)  is 
begin 

foreach ( (owp:  OpWithProfile),  owp_sequence_pkg. scan,  (owp^seq) , 
put ( convert ( name  ( owp . op ) ) ) ; 
put(”:  "); 

foreach ( (the_id:  psdl_id;  the_tn:  type_name), 

type_declaration_pkg . scan,  (inputs ( owp .op) ) , 
put (convert ( the_tn . name ) ) ; 
put(”  ”); 

) 

put("->  ")/ 

foreach ( (the_id:  psdl_id;  the_tn:  type_name) , 

type_declaration_pkg.scan,  (outputs (owp. op) ) , 
put (convert (the_tn.name) ) ; 
put("  "); 

) 

put{”  ”); 

profilePut  (software_base. getProfile  (owp. op_profile)  )  ; 
new_line; 

) 

end  OpWithProfileSeqPrint; 


—  Function:  opWithProfileSetPrint 

procedure  opWithProfileSetPrint {owp_set:  in  OpWithProfileSet)  is 
begin 

foreach ( (owp;  OpWithProfile),  owp_set_pkg. scan,  (owp_set) , 
put (convert (name (owp. op) ) ) ; 
put(":  "); 

foreach ( (the_id:  psdl_id;  the_tn:  type_name), 

type_declaration_pkg.scan,  (inputs (owp. op) ) , 
put (convert ( the_tn . name ) ) ; 
put { ”  ” ) ; 

) 

put("->  "); 

foreach ( (the_id:  psdl_id;  the_tn:  type_name), 

type_declaration^kg. scan,  (outputs  (owp. op)  ) , 
put  (convert  ( the__tn . name )  ) ; 
put("  "); 

) 

new_line; 

profilePut  (software_base. getProfile  (owp. op_profile)  )  ; 
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new_line; 

) 

end  opWithProfileSetPrint; 


—  Function:  addOpWithProfile 

procedure  addOpWithProfile (owp:  in  OpWithProfile; 

owp_seq;  in  out  OpWithProfileSeq)  is 
begin 

o^P_sequence_pkg.add{owp,  owp_seq)  ; 
owp_seq  :=  opWithProfileSeqSort {owp_seq) ; 
end  addOpWithProfile; 


--  Function:  createNumericSignatures 

—  Description:  helper  function  to  create  numeric  signatures  for 
an  operator. 

function  createNumericSignatures (op:  in  operator; 
generics_mapping:  GenericsMap;  type_id:  psdl_id) 
return  SignatureSequence  is 

package  type_map_pkg  is 
new  generic_map_j3kg  ( 
key  =>  type_name, 
result  =>  integer, 

6g_key  ->  equal, 
eq_res  => 

average__si2e  =>  2); 
subtype  type_map  is  type_map_pkg.map; 

—  if  a  type  from  the  same  sort  group  is  already  in  the  map 

—  then  return  the  number  that  represents  that  sort  group 

—  otherwise  return  0,  indicating  this  a  type  from  a  new 

—  sort  group 

function  getSortGroupNum(the_type :  type_name; 

the_type_map:  type_map)  return  integer  is 
return_val :  intege  r ; 
begin 

return^val  :=  0; 

foreach ( (the_tn :  type_name;  the_num:  integer), 
type_map__pkg. scan,  {the_type_map)  , 
if  same_sort_group {the_type,  the_tn)  then 
return_val  :=  the_num; 

—  TODO:  should  be  exit  loop  here  but  don't  know  how  to 
end  if; 

) 

return  return_val; 
end  getSortGroupNum; 

the_inputs:  type_declaration  :=  inputs (op); 
the__outputs :  type_declaration  :=  outputs  (op); 
the_type_map :  type_map ; 
i,  t:  natural; 
sort_group_num:  integer; 

gen_set :  psdl_id_set_subtype_pkg.psdl_id__set; 
tempos i gnature :  Signature; 
temp_tn :  type_name ; 
return__val:  SignatureSequence; 
type_occurrence_count :  natural; 

bool_count,  char_count,  string_count,  int_count,  float_count:  natural; 

procedure  update_additional_counts (the_tn :  type_name)  is 
begin 

if  eq (temp_tn.name,  type_id)  then 

type_occurrence_count  :=  type_occurrence_count  +  1; 
elsif  same_sort_group (the_tn,  boolean_type)  then 
bool_count  :=  bool_count  +  1; 
elsif  same_sort_group (the_tn,  character_type)  then 
char^count  :=  char_count  +  1; 
elsif  same_sort__group  (the_tn,  string_type)  then 
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string_count  :=  string_count  +  1; 
elsif  same_sort_group (the_tn,  integer_type)  then 
int_count  ;=  int__count  +  1; 
elsif  saitie_sort_group (the_tn,  float_type)  then 
float_count  :=  float_count  +  1; 
end  if; 

end; 

begin 

• create { 0 ,  the_type_map) ; 

—  for  each  output 

foreach( (o_id:  psdl_id;  o_tn:  type_name), 

type_declaration_pkg. scan,  {the_outputs) , 
type_niap_pkg. recycle  (the_type_map) ; 
t  :  =  0  ; 
i  :=  0; 

type__occurrence_count  :=  0; 
bool_count  :=  0; 
char_count  :=  0; 
string__count  :=  0; 
int_count  :=  0; 
float_count  0; 

—  for  each  input 

foreach ( (i_id:  psdl_id;  i_tn:  type_name), 

type_declaration_pkg. scan,  (the_inputs) , 

—  check  if  type  is  a  generic  type  or  a  regular  type 

if  gene ric s_niap_pkg. membe r (i__tn. name,  genericsjnapping)  then 
temp_tn  :=  create { 

generics_map_pkg. fetch (generics_mapping,  i_tn.name) , 
psdl_id_sequence_pkg . empty, 
type_declaration_pkg. create (null_type) ) ; 

else 

—  could  probably  use  i_tn  as  is  rather  than  create 

—  a  copy  but  we’re  being  safe  in  case  i_tn  has  some 

—  residue  in  its  formal s  and  gen_pars 
temp_tn  :=  create  (i__tn. name, 

psdl_id_sequence_pkg.  empty, 
type_declaration_pkg. create (null_type) ) ; 

end  if; 

update_additional__counts  {temp_tn) ; 

—  if  the  type  isn’t  in  the  map  yet  then  put  it  in 

if  not  type_map_pkg.member (temp_tn,  the__type_map)  then 

sort_group_num  :=  getSortGroupNum(temp_tn,  the_type_map)  ; 
if  sort_group_num  ~  0  then 
t  t  +  1; 

type jmap_pkg. bind (temp_tn,  t,  the_type_map)  ; 
end  if; 
end  if; 

—  add  the  input's  sort  group  number 
i  :  =  i  +  1 ; 

temp__signature  (i)  :=  getSortGroupNum(temp_tn,  the_type_map)  ; 

—  handle  the  output 

—  check  if  type  is  a  generic  type  or  a  regular  type 

if  generics_map_pkg. member (o_tn. name,  generics_mapping)  then 
temp_tn  create ( 

generics_map_pkg.fetch(generics_mapping,  o_tn.name) , 
psdl_id_sequence_pkg . empty, 
type_declaration_p kg. create (null_type) ) ; 

else 

—  could  probably  use  o_tn  as  is  rather  than  create 

—  a  copy  but  we're  being  safe  in  case  o_tn  has  some 

—  residue  in  its  formals  and  gen_pars 
temp_tn  :=  create (o_tn. name, 

psdl_id_sequence_pkg . empty, 
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type_declarationjpkg. create  (null_type) ) ; 

end  if; 

update_additional_counts (temp^tn) ; 

if  the  type  isn't  in  the  map  yet  then  put  it  in 
if  not  type_map__pkg.member (temp_tn,  the_type_map)  then 

sort_group_num  :=  getSortGroupNum(temp_tn,  the_type_map) ; 
if  sort_group_nuin  =  0  then 
t  :=  t  +  1; 

■typ®_i'^sp_pkg.bind  (temp_tn,  t,  the_type_map)  / 
end  if; 
end  if; 

—  add  the  output's  sort  group  number 
i  :=  i  +  1; 

temp_signature  (i)  getSortGroupNuni(temp__tn,  the_type_map)  ; 

—  mark  end  of  signature 
i  ;=  i  +  1; 

temp_signature (i)  :=  0; 

—  add  the  type_occurrence_count  to  the  signature 
i  :=i+l; 

temp_signature (i)  :=  type_occurrence_count; 

—  add  basic  type  counts  in 
i  :=  i  +  1; 

tempos ignature  (i)  bool_count; 

i  :=  i  +  1/ 

temp_signature (i)  :=  char_count; 
i  :=  i  +  1; 

temp__signature  (i)  ;=  string_count; 
i  :=i+l; 

temp__signature  (i)  :=  int^count; 
i  :=  i  +  1; 

temp_signature (i)  :=  float_count; 
i  :=  i  +  1; 

temp_signature  (i)  ;==  0; 

—  add  the  signature  to  the  sequence  of  signatures 
signature_seq_pkg.add{temp_signature,  return_val) ; 

return  return_val; 
end  createNumericSignatures; 


—  Function:  getOperatorProfiles 

—  Description:  helper  function  to  collect  the  profiles  for 

an  operator.  A  ComponentProfile  (sequence  of 
profiles)  is  used  because  if  an  operator  has 
more  than  one  output  it  is  treated  as  if  there 
is  a  separate  operator  for  each  output. 

function  getOperatorProfiles (op :  operator; 

generics_mapping:  in  GenericsMap;  type_id:  psdl_id) 
return  ComponentProfile  is 

return_val:  ComponentProfile; 

numeric_sigs :  SignatureSequence; 

begin 

—  convert  the  operator’s  signature  to  numeric  signatures 

—  (see  the  comments  in  the  specification  of  profile_calc) 

numeric_sigs  createNumericSignatures (op,  generics_mapping,  type_id) ; 

—  compute  the  profile  for  each  signature 

foreach ( (sig:  Signature),  signature_seq_pkg. scan,  (numeric_sigs ) , 
addProfileID(software_base.getProfileID(computeProfile (sig) ) , 
return_val) ; 


158 


) 

return  return_val; 
end  getOperatorProfiles; 


—  Function:  getComponentProfile 

—  Description:  this  function  will  return  the  Component Pro file 

for  a  component  specified  in  PSDL  in  the  PSDL 
file  filename. 

function  getComponentProfile (filename :  in  string; 

generics_mapping:  in  GenericsMap)  return  ComponentProfile  is 

the_file:  file_type; 
the_prog;  psdl_program; 
return_val:  ComponentProfile; 

begin 

—  parse  the  psdl  file  to  create  a  psdl_program 
open(the__file,  IN^FILE,  filename); 

assign (the_prog,  psdl_program_j)kg. empty_psdl_program) ; 
psdl_io.get (the_file,  the_prog) ; 
close (the_file) ; 

—  if  the  program  contains  more  than  one  component 

—  then  just  get  the  first  one  since  the  program 

—  is  only  supposed  to  have  one  (a  requirement  of 

—  this  implementation) 

foreach ( (c_id:  psdl_id;  c:  psdl_component) , 
psdl_program_mapjpkg. scan,  (the_prog) , 

—  if  the  component  is  a  single  operator  then  just 

—  get  the  profile  for  that  operator 

if  component_category (c)  =  psdl_operator  then 

addProfiles (getOperatorProfiles (c,  generics_mapping,  empty), 
return_val) ; 

—  otherwise  the  component  is  a  type  so  get  the  profiles 

—  for  each  of  its  operators 
else 

foreach((id:  psdl_id;  o:  operator), 

operation_map_pkg. scan,  (operations (c) ) , 

addProfiles (getOperatorProfiles (o,  generics_mapping, 
psdl_id_pkg. Upper  To  Lower(c  id)),  return  val); 

)  ~  _ 
end  if; 

—  TODO:  need  to  break  out  of  this  loop  so  that  only  the 
first  component  is  processed. 


return  return_val; 
end  getComponentProfile; 


—  Function:  splitOp 

—  Description;  helper  function  to  split  an  operator  with  more 

than  one  output  into  a  sequence  of  operators 
where  each  operator  has  one  of  the  outputs. 

When  splitting,  instances  of  the  operator's  generic 
types  in  the  inputs  and  the  outpus  are  converted  to 
their  mapped  types  according  to  the  generics_mapping. 
Each  split  operator’s  profile  is  then  calculated. 

function  splitOp{op:  operator;  generics_mapping:  in  GenericsMap; 
type_id:  psdl_id) 
return  OpWithProfileSeq  is 
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return_val:  OpWithProfileSeq; 
temp_owp:  OpWithProfile; 
temp_output_name :  psdl_ici; 
temp_output_type :  type_naine  ; 
numeric_sigs :  SignatureSequence; 

begin 

—  for  each  output 

foreach ( (o_id:  psdl_id;  o_tn:  type^name), 

type_declaration_pkg. scan,  (outputs (op) ) , 

—  make  a  copy  of  op  but  with  only  the  current  output 
temp_owp,op  :=  make_atomic_operator ( 

psdl_name  =>  name (op), 
ada_name  =>  ada_name (op) , 
genjpar  “>  generic_parameters (op) , 
keywords  =*>  keywords  (op) , 
axioms  =>  axioms  (op), 
state  *>  states (op))/ 

—  add  the  inputs 

foreach ( (i_id:  psdl__id;  i_tn:  type_name), 

type_declaration_pkg. scan,  (inputs (op) ) , 
if  generics_map_pkg. member (i_tn. name,  generics_mapping)  then 
add_input (i_id,  create ( 

generics_map_pkg. fetch (gene rics_mapping,  i_tn.name) , 
psdl_id_sequence_pkg . empty, 
type_declaration_pkg. create  (null__type)  ) , 
temp_owp . op ) ; 

else 

add_input (i_id,  i_tn,  temp_owp . op) ; 
end  if; 

) 

—  add  the  output 

if  gene rics_map_pkg. membe r (o_tn. name,  generics_mapping)  then 
add_output (o_id,  create ( 

generics_map_pkg. fetch (generics_mapping,  o_tn.name) , 
psdljid_sequence_pkg. empty, 
type_declaration_pkg. create (null_type) ) , 
temp_owp . op ) / 

else 

add__output  ( o_id,  o_tn,  temp_owp .  op )  ; 
end  if; 

—  Convert  the  new  operator's  signature  to  numeric  signatures 

—  (see  the  comments  in  the  specification  of  profile_calc) . 

—  Note  the  call  to  createNumericSignatures  can  now  just  pass 

—  an  empty  GenericsMap  since  the  generics  were  mapped  to  actual 

—  types  in  the  above  code. 
numeric_sigs  := 

createNumericSignatures (temp_owp. op, 

generics_map_pkg. create (empty) ,  type_id) ; 

—  compute  the  new  operator's  profile 

:=  sof  tware_base .  getProfilelD  (computeProfile  ( 
signature_seq_pkg. fetch (numeric_sigs,  1) ) ) ; 

—  add  the  new  operator-with-profile  to  return_val 
addOpWithProfile (temp_owp,  return^val) ; 


return  return^val; 
end  splitOp; 


—  Function:  getOpsWithProfiles 

—  Description:  constructs  a  sequence  of  OpWithProfiles  (a  PSDL  operator 

and  its  corresponding  profile)  representing  the  operators 
in  the  PSDL  component  specified  in  filename. 

function  getOpsWithProfiles ( filename :  in  string; 
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generics_mapping:  in  GenericsMap)  return  OpWithProfileSeq  is 

the^file:  file_type; 
the_prog:  psdl_program; 

return_val,  foo:  OpWithProfileSeq  owp_sequence_p kg. empty; 

begin 

—  parse  the  psdl  file  to  create  a  psdl_program 
open (the_file,  IN_FILE,  filename); 

assign (the_prog,  psdl_program_pkg. empty_psdl_program) ; 
psdl_io . get (the_file,  the_prog) ; 
close (the_file) ; 

—  if  the  program  contains  more  than  one  component 
then  just  get  the  first  one  since  the  program 
is  only  supposed  to  have  one  (a  requirement  of 

—  this  implementation) .  Generic  maps  need  a  method 

—  that  allows  the  user  to  fetch  a  single  mapping 

—  in  the  map. 

f oreach ( (c_id :  psdl^id;  c:  psdl^component) , 
psdl_program__map_pkg.  scan,  (the_prog) , 

—  if  the  component  is  a  single  operator  then  just 

—  get  that  operator 

if  component_category (c)  =  psdl_operator  then 

foreach ( (owp:  OpWithProfile) ,  owp_sequence_pkg. scan, 
(splitOp(c,  generics_mapping,  empty)), 
addOpWithProfile {owp,  return  val); 

) 

—  otherwise  the  component  is  a  type  so  get 

—  each  of  its  operators 
else 

foreach{{id;  psdl_id;  o:  operator), 

operation_map_pkg. scan,  (operations (c) ) , 

foreach ( (owp :  OpWithProfile),  owp_sequence_pkg. scan, 
{splitOp(o,  generics_mapping, 

psdl_id_pkg.Upper_To_Lower (c_id) ) ) , 
addOpWithProfile (owp,  return  val)  ; 

> 

—  in  the  above  statement  we 

—  temporally  pass  the  generic  parameters  for  the  whole 

—  type,  c.  Should  really  just  pass  the  generic 

—  parameters  for  the  operation,  o,  only.  This  will 

—  happen  when  generics  get  reworked. 

) 

end  if; 


) 


TODO:  need  to  break  out  of  this  loop  so  that  only  the 
first  component  is  processed. 


return  return^val; 
end  getOpsWithProfiles; 


—  Function:  getOpsWithProfiles 

—  Description:  constructs  a  set  of  OpWithProfiles  (a  PSDL  operator 

and  its  corresponding  profile)  representing  the  operators 
in  the  PSDL  component  specified  in  filename. 

function  getOpsWithProfiles (filename:  in  string; 

generics_jnapping:  in  GenericsMap)  return  OpWithProfileSet  is 

the__file:  file_type; 
the_prog:  psdl_program; 
return_val:  OpWithProfileSet; 

begin 

parse  the  psdl  file  to  create  a  psdl_program 
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open(the_file,  IN_FILE,  filename); 

assign{the _prog,  psdl_program_pkg.empty_psdl_program) ; 
psdl_io . get ( the^file,  the_prog} ; 
close  (the__file)  / 


—  if  the  program  contains  more  than  one  component 
then  just  get  the  first  one  since  the  program 

—  is  only  supposed  to  have  one  (a  requirement  of 

—  this  implementation) .  Generic  maps  need  a  method 

—  that  allows  the  user  to  fetch  a  single  mapping 

—  in  the  map. 

foreach ( (c_id:  psdl_id;  c:  psdl_component) / 
psdl_program_map__pkg.scan,  (the_prog)  , 

—  if  the  component  is  a  single  operator  then  just 

—  get  that  operator 

if  component_category (c)  =  psdl_operator  then 

foreach ( (owp;  OpWithProfile) ,  owp_sequence_pkg. scan, 
(splitOp(c,  generics_mapping,  empty)), 
owp_set_pkg. add{owp,  return  val) ; 

) 

—  otherwise  the  component  is  a  type  so  get 

—  each  of  its  operators 
else 

foreach  ((id:  psdl__id;  o:  operator), 

operation_map_pkg. scan,  (operations (c) ) , 

foreach ( (owp:  OpWithProfile),  owp_sequence_pkg. scan, 
{splitOp(o,  generics_mapping, 

psdl_id_j5kg.Upper_To__Lower  {c_id) )  ) , 
owp_set_pkg. add (owp,  return  val); 

) 

—  in  the  above  statement  we 

—  temporally  pass  the  generic  parameters  for  the  whole 

—  type,  c.  Should  really  just  pass  the  generic 

—  parameters  for  the  operation,  o,  only.  This  will 

—  happen  when  generics  get  reworked. 

) 

end  if; 


) 


TODO:  need  to  break  out  of  this  loop  so  that  only  the 
first  component  is  processed. 


return  return__val; 
end  getOpsWithProfiles; 


—  Procedure :  psdl_idPut 

procedure  psdl_idPut (the_id:  in  psdl_id)  is 
begin 

put (convert (the_id) ) ; 
end  psdl_idPut; 


—  Procedure:  psdl_idGet 

procedure  psdl_idGet  (the_id:  in  out  psdl__id)  is 
IO_buffer:  string (1 .. 256) ; 
last:  integer; 
begin 

sb_utils.get_char_word(IO_buffer,  last) ; 
the_id  psdl_id (a_strings . to_a (IO_buf fer ( 1 . . last) ) ) ; 
end  psdl_idGet; 


—  Function:  getGenericsMap 

—  Description:  generates  all  the  possible  mappings  of  generic  types 

to  actual  types  for  all  the  generic  parameters  in 
the  component  specified  in  the  PSDL  file,  filename. 
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See  description  of  GenericsMap  in  psdl_profile .ads . 

This  is  done  by  collecting  all  the  types  used  in  the 
operatations  of  the  component  {note  we  are  only  processing 
type  components,  not  operator  components)  into  a  set 
and  then  performing  the  cross-product  of  this  set  with 
the  set  of  generic  parameters . 

function  getGenericsMaps {filename :  in  string)  return  GenericsMapSet  is 

the_file:  file_type; 
the_prog:  psdl^program; 
return_val :  GenericsMapSet ; 
gen_set:  psdl_id_set; 
type_set:  psdl_id_set; 
temp_map:  GenericsMap; 

procedure  cross_product {g_set,  t_set:  psdl_id_set;  gens_map:  GenericsMap)  is 
temp_set;  psdl_id_set; 
g:  psdl_id; 

local__map:  GenericsMap; 
begin 

generics_map_pkg .  assign  (local_map,  gens__map) ; 
if  psdl_id_set_j)kg.si2e (g_set)  >  0  then 

psdl_id_set_pkg. assign (temp_set,  g_set) ; 
g  :=  psdl_id_set_pkg. choose {g_set) ; 

foreach ( (the_type_id:  psdl_id) ,  psdl_id_set_pkg. scan,  (t_set) , 
generics_map_pkg.bind{g,  the_type_id,  local_map) ; 
psdl_id_set_pkg . remove {g,  temp_set ) ; 
cross_product  {temp_set,  t__set,  local_map) ; 
generics_map_pkg. assign (local_map,  gens_map) ; 

generics_map_pkg. recycle {temp_map) ; 
else 

generics_map_set_pkg. add (local_map,  return_val) ; 
end  if; 

end  cross_product; 
begin 

return_val  gene rics_map_set_pkg. empty; 

—  parse  the  psdl  file  to  create  a  psdl_program 
open{the_file,  IN_FILE,  filename); 

assign {the_prog,  psdl_program_pkg. empty_psdl_prograin)  ; 
psdl_io.get  (the_file,  the_prog)  ; 
close (the_file) ; 

—  if  the  program  contains  more  than  one  component 

—  then  just  get  the  first  one  since  the  program 

—  is  only  supposed  to  have  one  {a  requirement  of 

—  this  implementation) .  Generic  maps  need  a  method 

—  that  allows  the  user  to  fetch  a  single  mapping 

—  in  the  map. 

foreach { {c_id:  psdl__id;  c:  psdl_component) ,  psdl_program_map_pkg. scan, 
(the_prog) , 

—  collect  the  names  of  the  generic  parameters  ■ 
foreach ( {the_id:  psdl_id;  the_tn;  type_name), 

type_declaration_pkg.scan,  (generic_j)arameters {c) ) , 
if  eq{psdl_id_pkg.Upper_To_Lower (the_tn.name) , 
convert { "private_type " ) )  then 
psdl_id_set_pkg.add {psdl_id_pkg.Upper_To_Lower (the_id) , 
gen_set) ; 

end  if; 

) 

--  collect  the  types  used  in  all  the  operators 
if  component_category (c)  ~  psdl_type  then 
foreach { {o_id:  psdl_id;  o:  operator), 

operation_map_pkg. scan,  (operations (c) ) , 

—  inputs 

foreach { {the_id:  psdl_id;  the_tn:  type_name), 
type_declaration_pkg. scan,  (inputs (o) ) , 
psdl_id_set_pkg . add { 
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) 


psdl_id_pkg . Upper_To_Lower ( the_tn . name ) ,  type_set ) / 


—  outputs 

foreach { {the_id:  psdl_id;  the_tn:  type_name), 

type_declaration_pkg. scan,  {outputs (o) } , 
psdl_id__set_pkg .  add  ( 

psdl_id_pkg . Upper_To_Lower ( the_tn . name ) ,  type  set ) ; 

) 

) 

end  if; 


) 


—  TODO:  need  to  break  out  of  this  loop  so  that  only  the 
first  component  is  processed. 


generics_map_pkg . create (empty,  temp_map) ; 
cross_product  {gen__set,  type_set,  temp_map) ; 


return  return_val; 
end  getGenericsMaps; 

end  psdl_profile; 


O.  SIG_MATCH.ADS 


—  Package  Spec:  sig_match 


with  psdl_profile;  use  psdl_profile; 
with  sig_match_types;  use  sig_match_types; 

package  sig_match  is 

procedure  match_ops (query,  candidate:  in  OpWithProfileSeq; 
root_sn:  in  out  SigMatchNode) / 

procedure  sigMatchStatsReset; 

procedure  sigMatchStatsPut (filename :  string); 

end  sig_match; 

P.  SIG_MATCH.G 


—  Package  Body:  sig_match 


with  text_io;  use  text_io; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_typejpkg; 
with  psdl_component_pkg;  use  psdl_component_pkg; 

with  profile_types;  use  profile_types; 
with  psdl_profile;  use  psdljprofile; 
with  sig_match_types;  use  sig_match_types ; 

package  body  sig_match  is 

f ailed_outputs :  natural  0; 
passed_outputs :  natural  :=  0; 
failed_basics :  natural  0; 
passed__basics :  natural  :=  0; 
duplicates:  natural  :=  0; 
total_inputs :  natural  :=  0; 
f ailed_inputs :  natural  :=  0; 


—  Function:  get__basics 

—  Description:  removes  any  user-defined  types  from  the  inputs  argument, 

thereby  returning  a  type_declaration  with  predefined 
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types  only. 


function  get_basics (inputs :  in  type_declaration)  return  type_declaration  is 
return_val:  type_declaration; 
begin 

type_declaration_pkg. assign (return_val,  inputs); 

foreach ( (the_id:  psdl_id;  the_tn:  type_name),  type_declaration_pkg.scan, 
(inputs) , 

if  not  is_predefined (the_tn)  then 

type_declaration_pkg. remove  (the__id,  return_val)  / 
end  if; 

) 

return  return_val; 
end  get_basics; 


—  Function:  get_user_de fined 

—  Description:  removes  any  predefined  types  from  the  inputs  argument, 

thereby  returning  a  type_declaration  with  user^defined 
types  only, 

function  get_user_defined (inputs :  in  type_declaration) 
return  type_declaration  is 
return_val:  type_declaration; 
begin 

type_declaration_pkg. assign (return_val,  inputs) ; 

foreach ( (the_id:  psdl_id;  the_tn:  type__name),  type_declaration_pkg. scan, 
(inputs) , 

if  is_prede fined (the_tn)  then 

type_declaration_pkg. remove (the_id,  return_val) ; 
end  if; 

) 

return  return_val; 
end  get_user_defined; 


—  Function:  match_basics 

—  Description:  determines  if  the  query's  basic  input  types  can  match  the 

candidate's  basic  input  types  given  the  following  rule: 
Basic  types:  either  they  must  match  exactly  or  the 
query's  input  type  must  be  a  subtype  of  the  component's 
input  type . 

function  match_basics (q^basics,  c_basics:  in  type_declaration) 
return  boolean  is 
^^®>-^^^sics :  type_declaration; 

^^®_c_^^sics :  type_declaration; 

^®^_q_^^sics :  type_declaration; 
new_c_basics :  type_declaration; 
found_match,  found_c2,  return_val :  boolean; 
begin 

type_declaration_pkg. assign (new_q_basics,  q_basics);  ■ 
type_declaration_pkg . assign (new_c_basics,  c_basics) ; 


—  cannot  match  if  query  has  different  number  of  basics  then 

—  the  candidate 

if  type_declaration_pkg.  size  (q__basics )  /- 

type_declaration_pkg. size (c_basics)  then 
return  false; 
end  if; 


—  filter  out  the  basics  that  match  exactly 

type_declaration_pkg, assign  (the_c__basics,  new_c_basics) ; 
foreach ( (q_id:  psdl_id;  q_tn:  type_name) ,  type_declaration_j)kg. scan, 
(q_basics) , 

found_match  false; 
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foreach  (  {c_id:  psdl_id;  c_tn:  type_name)  ,  type_declaration_pk:g.  scan, 
{new_c_basics) , 
if  not  found_match  then 

if  equal (q_tn,  c_tn)  then 

type_declaration__pkg.  remove  (q_id,  new_q_basics)  ; 
^yP®_^®^l^^^tion_p kg.  remove  {c_id,  the_c_basics ) ; 
found__match  :=  true; 
end  if; 
end  if; 

—  TODO:  would  rather  break  out  of  the  inner  for  loop  when  a 
match  is  found  rather  than  do  this  found  match  stuff. 

) 

^yP®-_^®^^^^^tion_pkg.assign {new_c_basics,  the_c_basics) ; 


Filter  out  the  remaining  basics  that  can  match  to  supertypes. 

—  This  is  done  by  temporally  mapping  each  query  input  type  to  a 

—  supertype  in  the  candidate  that  is  closest  in  the  partial  ordering 

—  of  basic  types. 

type_declaration_pkg. assign {the_q_basics,  new_q_basics) ; 
foreach ( (q_id:  psdl_id;  q_tn:  type_name),  type_declaration_pkg. scan, 
(the_q_basics) , 
found_match  false; 

type_cleclaration_pkg. assign (the_c_basics,  new_c_basics) ; 
foreach { (c_id:  psdl^id;  c_tn:  type_name),  type_declaration_pkg . scan, 
{the_c_basics) , 
if  not  found_match  then 

if  subtype_of (q_tn,  c_tn)  then 
found_c2  :=  false; 

foreach ( (c2_id:  psdl_id;  c2_tn:  type_name) , 

type_declaration_pkg. scan,  (the_c_basics) , 
if  not  found_c2  then 

if  not  equal {c_tn,  c2_tn)  then 

if  subtype_of (q_tn,  c2_tn)  and 

subtype_of (c2_tn,  c_tn)  then 
found_c2  :=  true; 
end  if; 
end  if; 
end  if; 

) 

if  not  found_c2  then 

type_declaration_pkg. remove (q_id,  new_q_basics) ; 
type_declaration_pkg. remove (c_id,  new_c_basics) ; 
found_match  :=  true; 
end  if; 
end  if; 
end  if; 

) 

) 


—  if  there  are  any  basics  left  over  than  match  is  not  possible  since 

—  basics  cannot  be  matched  to  non-basics 

return_val  ;=  type_declaration_pkg. size (new_q_basics)  =  0; 


recycle  local  variables 

type_declaration_pkg. recycle (new_q_basics ) ; 
type_declaration_pkg . recycle (new_c_basics) ; 
tyP®-^®cl^^stion_pkg. recycle (the_q_basics) ; 
type__declaration_pkg. recycle  {the_c_basics)  ; 

return  return_val; 
end  match_basics; 


Procedure :  match_outputs 


Description:  This  function  serves  two  purposes:  1.  to  determine  if 
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the  outputs  of  the  matched  operations  can  match,  and 
2.  if  they  can  match,  add  the  type  mappings  to  sn.V.TM. 

procedure  match_outputs (sn:  in  out  SigMatchNode;  success:  out  boolean)  is 
q_output_type,  c_output_type :  type_name; 
begin 

success  true; 

foreach( (cLop:  operator;  c_op:  operator),  op_map_pkg. scan,  (sn.V.OM) , 
if  success  then 

—  get  q_op's  one-and-only  output  type 
q_output_type  :=  type_declaration_pkg. res_set_pkg. choose { 

type_declaration_pkg.map_range (outputs {q_op) ) ) / 

—  get  chop's  one-and-only  output  type 
c_output_type  :=  type_declaration_pkg. res_set_pkg. choose ( 

type_declarationjpkg.map_range (outputs (c_op) ) ) ; 

if  is_prede fined (q_output_type)  or 

is_predefined (c_output_type)  then 
if  not  subtype_of (c_output_type,  q_output_type)  then 
success  :=  false; 
end  if; 

elsif  type_map_pkg. member  (q_output__type,  sn.V.TM)  then 
if  not  equal ( c_output_type , 

type_map_pkg . fetch ( sn . V . TM,  q_output_type ) )  then 
success  :=  false; 
end  if; 
else 

type_map_pkg . bind ( q_output_type ,  c_output_type ,  sn.V.TM); 
end  if; 
end  if; 

) 

end  match_outputs; 


—  Procedure:  match_inputs 

—  Description: 

procedure  match^inputs (root_sn:  in  out  SigMatchNode;  success:  out  boolean)  is 

procedure  match ((^inputs,  c^inputs:  in  type_declaration; 

root_sn:  in  out  SigMatchNode;  success:  out  boolean)  is 
new_q_inputs,  new_c_inputs :  type_declaration; 
temp_q_inputs,  temp_c_inputs :  type_declaration; 
ci;  type_name; 
temp_sn:  SigMatchNodePtr; 
temp_id:  psdl_id; 
f ound__temp_id :  boolean; 
got_first_qi:  boolean; 
return_val:  SigMatchNode; 
begin 

return_val  :=  createSigMatchNode; 
sigMatchNodeAssign (return_val,  root_sn) ; 

type_declaration_pkg. assign (new_q_inputs,  q__inputs); 

yP®_^®^l^^^tion_p kg. assign (new_c_inputs,  c^inputs)  ; 
success  :=  true; 

foreach( (q_id:  psdl_id;  qi :  type^name), 

type_declaration_pkg. scan,  (q_inputs) , 
if  success  then 

if  type_map_pkg.member (qi,  root_sn. V.TM)  then 
ci  :=  type_map_pkg. fetch (root_sn. V.TM,  qi) ; 

—  if  the  current  query  input  type  is  already  mapped 

—  then  make  sure  it  is  mapped  to  an  existing  type  in 

—  the  candidate's  inputs.  Note  to  test  this  we  must 

—  look  at  the  type_declaration' s  range  (the  types) 

—  not  it’s  domain  (the  psdl_ids) . 

if  not  type_declaration_pkg. res_set_j>kg. member (ci, 

type_declaration__pkg.map_range  (c_inputs) )  then 
success  :=  false; 

else 

—  remove  qi  from  new_q_inputs 
type_declaration_pkg. remove (q_id,  new_q_inputs) ; 
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—  remove  ci  from  new_c_inputs 
found_temp_id  :=  false; 
if  not  found_temp_id  then 

foreach ( (c_id:  psdl_id;  c_tn:  type_name) , 

type_declaration_pkg. scan,  (new_c_inputs) , 
if  equal (ci,  c_tn)  then 
temp_id  :=  c_id; 
found_temp_id  :=  true; 

—  TODO:  would  rather  break  out  of  for  loop, 
end  if; 

) 

end  if; 

if  found_temp_id  then 

type_declaration_pkg. remove  (temp__id,  new__c_inputs)  ; 

else 

—  if  this  else  block  gets  called 

—  there  is  something  wrong 
put_line ( "there  is  something  wrong"); 
success  :=  false; 

end  if; 
end  if; 
end  if; 
end  if; 

) 

if  success  then 

—  got_first_qi  is  a  cheesy  way  of  only  getting  the  first 

—  element  out  of  the  map.  Maps  need  a  way  of  fetching  by 

—  i'th  element. 
got_first_qi  :=  false; 

foreach ( {q_id:  psdl_id;  qi :  type_name) , 

type_declaration_pkg.scan,  (q_inputs) , 
if  not  got__first_qi  then 
got_first_qi  :=  true; 

foreach { (c_id:  psdl_id;  c_tn:  type_name) , 

type_declaration_pkg . scan,  { c_inputs ) , 
temp_sn  new  SigMatchNode ' (createSigMatchNode) ; 
sigMatchNodeAssign {temp_sn . all,  root_sn) ; 
temp_sn.  expanded_for_inputs  :*=  false; 

c_tn,  temp_sn .V. TM)  ; 
type_declaration_pkg .assign ( temp_q_inputs , 
new_q_inputs) ; 

type_declaration_pkg , assign ( temp_c_inputs , 
new_c__inputs)  ; 

type__declaration_pkg.  remove  (q_id,  temp_q_inputs)  ; 
t3^e_declaration_pkg .  remove  (c_id,  temp_c_inputs ) ; 
match (temp_q_inputs,  temp_c_inputs,  temp_sn.all, 
success) ; 
if  success  then 

addBranch (temp_sn,  return_val); 
end  if; 

> 

end  if; 

) 

end  if; 

sigMatchNodeAssign (root_sn,  return_val) ; 
end  match;  ■ 

q^inputs,  c_inputs:  type_declaration; 

begin 

success  :=  true; 

foreach { {q_op:  operator;  c_op:  operator),  op_map_pkg . scan,  (root_sn.V.OM) , 
if  success  then 

—  Remove  the  input  types  that  have  already  been  mapped. 

type_declaration_pkg. assign (q_inputs,  inputs (q_op) ) ; 
type_declaration_pkg.assign {c_inputs,  inputs {c_op) ) ; 

—  query 

foreach ( (the_id:  psdl_id;  the_tn:  type_name), 

type__declaration_pkg. scan,  (inputs  (q_op) ) , 
if  type_map_pkg.  key_set__pkg. member  (the_tn, 

■type_map__pkg .  map_domain  ( root_sn .  V .  TM) )  then 
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—  If  the  type  was  mapped  make  sure  it  was  mapped  to 
—  a  type  in  the  candidate  operator.  This  is  necessary 
--  because  inputs  are  mapped  for  one  operator  at  a  time, 
if  type_declaration_pkg . re s_set_pkg .member ( 

typejmap_pkg. fetch (root_sn.V.TM,  the_tn) , 
type_declaration_pkg.map_range (c_inputs) )  then 
type_declaration_pkg . remove (the_id,  q_inputs ) ; 

else 

success  :=  false; 
end  if; 
end  if; 

) 


—  candidate 

foreach { (the_id:  psdl_id;  the_tn:  type_name) , 

type_declaration_j>kg. scan,  (inputs {c_op) ) , 
if  type_mapjpkg. re s_set_pkg. member (the_tn, 

type_map_pkg.map_range (root_sn.V.TM) )  then 
tyP®>.<^®claration__pkg. remove  {the__id,  c_inputs) ; 
end  if; 


if  the  number  of  remaining  inputs  types  for  the  query  and 
—  the  candidate  are  not  equal  then  the  operations  cannot  match 

if  success  then 

if  type_declaration_pkg.size (q_inputs)  /= 

type_declaration_pkg. size (c_inputs)  then 
success  :=  false; 

else 

—  if  the  node  has  already  been  expanded  for  inputs  then 

—  all  of  its  operators’  inputs  must  already  be  mapped 

—  otherwise  the  node  fails. 

if  root_sn. expanded_for_inputs  then 

success  :=  type_declaration_pkg. size (q_inputs)  ~  0; 

else 

match(get__user_defined{q_inputs) , 

get_user_defined(c_inputs) ,  root_sn,  success); 

end  if; 
end  if; 
end  if; 
end  if; 

) 

end  match_inputs; 


—  Function:  verify_subtypes 

—  Description: 

function  verify_subtypes (root_sn:  in  SigMatchNode)  return  boolean  is 
begin 

—  TODO 

return  true;  : 

end  verify_subtypes; 


—  Procedure:  match_ops 

Description:  this  is  the  main  procedure  for  signature  matching. 

Given  the  operations  and  their  profiles  for  a  query  and  a 
candidate,  this  method  will  return  a  SigMatchNode  whose 
branches  contain  valid  operation  and  type  mappings . 

procedure  match_ops (query,  candidate:  in  OpWithProfileSeq; 
root_sn:  in  out  SigMatchNode)  is 
return_val:  SigMatchNode; 
temp_sn:  SigMatchNodePtr; 
success,  pruned:  boolean; 

temp_query,  temp_candidate :  OpWithProfileSeq; 
temp_char:  character; 
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begin 

return_val  :«  createSigMatchNode; 
sigMatchNodeAssign (return_val,  root_sn) ; 

owp_sequence_pkg. assign {temp_query,  query) ; 
owp__sequence_pkg.  assign (temp^candidate,  candidate)  ; 
f ©reach ( (q_owp :  OpWithProfile) ,  owp_sequence_pkg. scan,  (query), 

foreach { (c_owp:  OpWithProfile),  owp_sequence_pkg . scan,  (candidate), 
if  q_owp.op_profile  =  c__owp .op_profile  then 

temp_sn  :=  new  SigMatchNode'(createSigMatchNode); 
sigMatchNodeAssign (temp_sn. all,  root_sn) ; 
op_inap_pkg .  bind  ( q_owp .  op ,  c_owp .  op ,  temp_sn .  V .  OM) ; 
if  not  validPairingExists (temp_sn. V.OM,  return_val)  then 
match_outputs  ( temp__sn .  all ,  succes  s ) ; 
if  success  then 

passed_outputs  :=  passed_outputs  +  1; 
if  mat ch__ba sics  (get_basics  (inputs  (q_owp.op)  )  , 
get_basics (inputs (c_owp.op) ) )  then 
opWithProfileSeqRemove  (q_owp,  temp__query)  / 
opWithProfileSeqRemove (c_owp,  temp_candidate) ; 
match_ops (temp_query,  temp_candidate,  temp_sn. all) ; 
addBranch (temp_sn,  return_val) ; 
passed_basics  :=  passed_basics  +  1; 
else 

failed_basics  :=  failed_basics  +  1; 
end  if; 
else 

failed__outputs  failed_outputs  +  1; 
end  if; 

else 

duplicates  :=  duplicates  +  1; 
end  if; 
end  if; 

) 

) 


—  prune  leaf  nodes  until  all  leaves  are  valid  solutions 

pruned  :=  true; 
while  pruned  loop 
pruned  false; 

sigMatchNodeAssign (root^sn,  return_val) ; 

foreach { (leaf^snp:  SigMatchNodePtr ) ,  sig  match_  node  ptr  seq_ pkg . scan, 
(getLeafNodePtrs (root^sn) ) , 
if  leaf_snp. validation  =  UNKNOWN  then 
match_inputs (leaf_snp.all,  success) ; 
total_inputs  :=  total_inputs  +  1; 
if  not  success  then 

leaf_snp. validation  :=  INVALID; 
elsif  not  verify_subtypes (leaf_snp . all)  then 
leaf_snp. validation  :=  INVALID; 

else 

if  sig_match_node_ptr_seq_pkg. length ( 
leaf_snp. branches)  =  0  then 
leaf_snp. validation  VALID; 

else 

leaf_snp.expanded__for_inputs  true; 
end  if; 
end  if; 

if  leaf_snp. validation  =  INVALID  then 

—  removeBranch  (leaf_snp,  return__val)  ; 
removeAllMatchingBranches (leaf_snp,  return_val) ; 
failed_inputs  failed_inputs  +1; 
pruned  :=  true; 
end  if; 
end  if; 

) 

end  loop; 


—  recycle  local  variables 
owp_sequence_p kg. recycle (temp_query) ; 
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owp__sequence_pkg.  recycle  (temp_candidate) ; 

sigMatchNodeAssign (root_sn/  return_val) ; 
end  match_ops; 

procedure  sigMatchStatsReset  is 
begin 

failed__outputs  :=  0; 
passed_outputs  :=  0; 
failed_basics  :=  0; 
passed_basics  :=  0; 
duplicates  :=  0; 
total_inputs  0; 
failed_inputs  ;=  0; 
end  sigMatchStatsReset; 

procedure  sigMatchStatsPut ( filename :  string)  is 
the_file:  file_type; 
begin 

create (the_file,  out_file,  filename); 
put { the_file,  "Duplicates:  "); 
put_line (the_file,  integer 'image (duplicates) ); 
put (the_file,  "Passed  Output  Matching:  "); 
put_line (the_file,  integer ' image (passed_outputs) ); 
put ( the_file,  "Failed  Output  Matching:  "); 
put_line (the_file,  integer ' image (failed_outputs) ); 
put (the_file,  "Passed  Predefined  Type  Matching:  ") ; 
put_line (the_file,  integer ' image (passed^basics) )  ; 
put (the_file,  "Failed  Predefined  Type  Matching:  ") ; 
put_line (the_file,  integer ' image {failed_basics) ) ; 
put ( the_file,  "Total  Inputs:  "); 
put_line (the_file,  integer ' image (total_inputs) ) ; 
put  ( the__file,  "Failed  Inputs:  "); 
put_line (the_file,  integer ' image (failed_inputs) ) ; 
close (the_file) ; 
end  sigMatchStatsPut; 

end  sig_match; 

Q.  SIG_MATCH_TYPES.ADS 


—  Package  Spec:  sig_match_types 


with  text_io;  use  text_io; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 
with  psdl_component_pkg;  use  psdl_component_pkg; 

with  generic_map_pkg; 
with  generic_sequence_j)kg; 
with  generic_set_pkg; 
with  ordered_set_pkg; 

package  sig_match_types  is 


—  Types 


—  TypeMap 

package  type_map_pkg  is  new  generic_map_pkg ( 
key  =>  type_name, 
result  =>  type_name, 
eq_key  =>  equal, 
eq_res  =>  equal, 
average_size  =>  4); 

subtype  TypeMap  is  type_map_pkg .map; 

procedure  typeNamePut (the_tn:  type_name) ; 
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procedure  typeMapPut  is  new  type_map_pkg. generic_put ( 
key_put  =>  typeNamePut,  res_put  =>  typeNamePut) ; 

procedure  typeMapFilePut  is  new  type_map_pkg . generic_file_put ( 
key_put  =>  typeNamePut,  res_put  ->  typeNamePut); 


—  OpMap 

package  op_map_pkg  is  new  generic_map_pkg ( 
key  =>  operator, 
result  =>  operator, 

=>  eq, 
eq_res  =>  eq, 
average_size  =>  4); 

subtype  OpMap  is  op_map__pkg.map; 

procedure  opPut (the_op :  operator); 

procedure  opMapPut  is  new  op_map_pkg . generic_put ( 
key_put  =>  opPut,  res_put  ->  opPut) ; 

procedure  opMapFilePut  is  new  op_map_pkg.generic_file_put ( 
key__put  =>  OpPut,  res_put  =>  opPut); 


—  SignatureMap 

type  SignatureMap  is  record 
TM:  TypeMap; 

OM :  OpMap ; 
end  record; 

function  createSignatureMap  return  SignatureMap; 

procedure  addTypeMapping (tnl :  in  type_name;  tn2 :  in  type_name; 
sm:  in  out  SignatureMap) ; 

procedure  addOpMapping (opl :  in  operator;  op2 :  in  operator; 
sm:  in  out  SignatureMap) ; 

function  signatureMapEqual (sml :  in  SignatureMap;  sm2:  in  SignatureMap) 
return  boolean; 

procedure  signatureMapPut {sm:  in  SignatureMap); 


—  SignatureMapSet 

package  sig_map_set_pkg  is  new  generic_set_pkg ( 
t  =>  SignatureMap,  eq  =>  signatureMapEqual) ; 
subtype  SignatureMapSet  is  sig_map_set_pkg. set ; 

procedure  signatureMapSetPut  is 

new  sig_map_set_j>kg.generic_put (put  =>  signatureMapPut); 


—  SigMatchNodePtr 
type  SigMatchNode; 

type  SigMatchNodePtr  is  access  SigMatchNode; 

function  sigMatchNodePtrEquaKsmnpl :  in  SigMatchNodePtr; 
smnp2 :  in  SigMatchNodePtr)  return  boolean; 

function  sigMatchNodePtrLessThan (smnpl :  in  SigMatchNodePtr; 
smnp2 :  in  SigMatchNodePtr)  return  boolean; 

procedure  sigMatchNodePtrPut (smnp:  in  SigMatchNodePtr); 
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—  SigMatchNodePtrSeq 

package  sig_match_node_ptr_seq_pkg  is  new  generic_sequence_pkg { 
t  =>  SigMatchNodePtr,  average_size  =>  4); 
subtype  SigMatchNodePtrSeq  is  sig_match_node_ptr_seq_pkg . sequence; 

function  sigMatchNodePtrSeqEqual  is 

new  sig_match_nbde_ptr_seq_pkg.generic_equal (eq  =>  sigMatchNodePtrEqual) ; 
function  sigMatchNodePtrSeqMember  is 

new  sig_match__node_ptr_seq_pkg, generic_member (eq  =>  sigMatchNodePtrEqual); 

procedure  sigMatchNodePtrSeqRemove  is 

new  sig_match_node_ptr_seq_pkg. generic_remove (eq  =>  sigMatchNodePtrEqual); 

procedure  sigMatchNodePtrSeqPut  is 

new  sig_match_node_ptr_seq_pkg. generic_put (put  =>  sigMatchNodePtrPut) ; 


—  SigMatchNodePtrSet 

package  sig_match_node_ptr_set_pkg  is  new  ordered_set_pkg ( 
t  =>  SigMatchNodePtr,  eq  =>  sigMatchNodePtrEqual, 

=>  sigMatchNodePtrLessThan) ; 

subtype  SigMatchNodePtrSet  is  sig_match_node_ptr_set_pkg. set; 
procedure  sigMatchNodePtrSetPut  is 

new  sig_match_node_ptr_set_pkg, generic_put (put  =>  sigMatchNodePtrPut); 
procedure  sigMatchNodePtrSetPrint (the_set :  SigMatchNodePtrSet) ; 


—  SigMatchNode 

type  ValidationType  is  (UNKNOWN,  VALID,  INVALID); 

type  SigMatchNode  is  record 
id:  natural; 
signature_rank:  float; 
semantic_rank:  float; 

V:  SignatureMap; 
validation:  ValidationType; 
expanded_for_inputs :  boolean; 
branches:  SigMatchNodePtrSeq; 

end  record; 

function  createSigMatchNode  return  SigMatchNode; 

procedure  addBranch(the_branch:  in  SigMatchNodePtr; 
the__node:  in  out  SigMatchNode); 

procedure  removeBranch (the_branch:  in  SigMatchNodePtr; 
the_node:  in  out  SigMatchNode); 

procedure  removeAllMatchingBranches (the_branch:  in  SigMatchNodePtr; 
the_node:  in  out  SigMatchNode); 

function  sigMatchNodeEqual (smnl :  in  SigMatchNode;  smn2 :  in  SigMatchNode) 
return  boolean; 

function  sigMatchNodeLessThan (smnl :  in  SigMatchNode;  smn2:  in  SigMatchNode) 
return  boolean; 

procedure  sigMatchNodeAssign (smnl :  in  out  SigMatchNode; 
smn2 :  in  SigMatchNode); 

procedure  sigMatchNodePut (the_node :  in  SigMatchNode); 

procedure  sigMatchNodePrint (the_node :  SigMatchNode); 

procedure  generateGML (the_node :  in  SigMatchNode;  filename:  in  string); 

function  getLeafNodePtrs (the_node :  in  SigMatchNode)  return  SigMatchNodePtrSeq; 

function  getLeafNodePtrs (the_node :  in  SigMatchNode)  return  SigMatchNodePtrSet; 
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function  getValidLeafNodePtrs (the_node :  in  SigMatchNode ) 
return  SigMatchNodePtrSet ; 

function  validPairingExists (pairing :  in  OpMap;  the_node :  in  SigMatchNode) 
return  boolean; 

end  sig_match_types; 


R.  SIG_MATCH_TYPES.G 


—  Package  Body;  sig_match_types 


with  text_io;  use  text_io; 
with  ada . float_text_io; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 
with  psdl_component_pkg;  use  psdl_component_pkg; 

with  candidate_types; 

package  body  sig_match_types  is 


—  Procedure:  typeNamePut 

—  Description:  outputs  the  type^name ' s  name 

procedure  typeNamePut (the_tn :  type_name)  is 
begin 

if  not  equal (the^tn,  null_type)  then 
put (convert (the_tn.name) ) ; 
end  if; 

end  typeNamePut; 


—  Procedure:  opPut 

—  Description:  outputs  the  operator’s  name 

procedure  opPut (the_op:  operator)  is 
begin 

if  the_op  /=  null_component  then 
put (convert (name (the_op) ) ) ; 
end  if; 
end  opPut; 


—  Function:  createSignatureMap 

—  Description:  create  and  initialize  a  SignatureMap  for  use. 

function  createSignatureMap  return  SignatureMap  is 
return_val:  SignatureMap; 
begin 

return_val . TM  :=  type_map_pkg. create (null_type) ; 
return_val . OM  :=  op_map_pkg . create (null_component) ; 
return  return_val; 
end  createSignatureMap; 


—  Procedure :  addTypeMapping 

—  Description:  binds  two  types  together  and  adds  them  to  the 

SignatureMap ' s  TypeMap. 

procedure  addTypeMapping (tnl :  in  type_name;  tn2;  in  type_name; 
sm:  in  out  SignatureMap)  is 

begin 

type_inap_pkg. bind  (tnl,  tn2,  sm.TM)  ; 
end  addTypeMapping; 
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—  Procedure:  addOpMapping 

--  Description:  binds  two  operators  together  and  adds  them  to  the 
SignatureMap ' s  OpMap. 

procedure  addOpMapping (opl :  in  operator;  op2 :  in  operator; 
sm:  in  out  SignatureMap)  is 

begin 

op_map_pkg.bind(opl,  op2,  sm.OM); 
end  addOpMapping; 


—  Function:  signatureMapEqual 

function  signatureMapEqual (sml :  in  SignatureMap;  sm2 :  in  SignatureMap) 
return  boolean  is 

begin 

return  type_map_pkg. equal {sml .TM,  sm2.TM)  and 
op_map__pkg .  equal  ( sml .  OM,  sm2  .  OM)  ; 
end  SignatureMapEqual; 


Function:  signatureMapPut 

procedure  signatureMapPut (sm:  in  SignatureMap)  is 
begin 

putC'OM:  "); 
opMapPut  (sm.OM)  ; 
put("  I  TM:  "); 
typeMapPut (sm.TM) ; 
end  signatureMapPut; 


—  Function:  sigMatchNodePtrEqual 

function.  sigMatchNodePtrEqual (smnpl :  in  SigMatchNodePtr; 
smnp2:  in  SigMatchNodePtr)  return  boolean  is 

begin 

return  sigMatchNodeEqual (smnpl . all,  smnp2.all); 
end  SigMatchNodePtrEqual; 


—  Function:  sigMatchNodePtrLessThan 

function  sigMatchNodePtrLessThan (smnpl :  in  SigMatchNodePtr; 
smnp2 :  in  SigMatchNodePtr)  return  boolean  is 

begin 

return  sigMatchNodeLessThan (smnpl , all,  smnp2.all); 
end  SigMatchNodePtrLessThan; 


—  Procedure:  sigMatchNodePtrPut 

procedure  sigMatchNodePtrPut (smnp:  in  SigMatchNodePtr)  is 
begin 

sigMatchNodePut ( smnp . all ) ; 
end  SigMatchNodePtrPut; 


—  Function:  sigMatchNodeEqual 

function  sigMatchNodeEqual (smnl :  in  SigMatchNode;  smn2 :  in  SigMatchNode) 
return  boolean  is 

begin 

if  smnl . signature_rank  /=  smn2 . signature_rank  then 
return  false; 
end  if; 

if  smnl . semantic_rank  /=  smn2 . semantic_rank  then 
return  false; 
end  if; 
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if  smnl .validation  /=  smn2 .validation  then 
return  false; 
end  if; 

if  smnl .expanded_for_inputs  /=  smn2 . expanded_for_inputs  then 
return  false; 
end  if; 

if  not  signatureMapEquaKsmnl .  V,  smn2..V)  then 
return  false; 
end  if; 

return  sigMatchNodePtrSeqEqual (smnl .branches,  smn2 .branches) ; 
end  sigMatchNodeEqual; 


—  Function:  sigMatchNodeLessThan 

function  sigMatchNodeLessThan (smnl :  in  SigMatchNode; 
smn2:  in  SigMatchNode)  return  boolean  is 

begin 

if  smnl .  signature_rank  >  smn2  .  signature_ran)c  then 
return  true; 

—  the  following  test  for  less-than  is  just  being  paranoid 

—  about  potential  float  equality  problems 

elsif  smnl . signature_rank  <  smn2 . signature_rank  then 
return  false; 

elsif  smnl . semantic_rank  >  smn2 . semantic_rank  then 
return  true; 

—  the  following  test  for  less-than  is  just  being  paranoid 

—  about  potential  float  equality  problems 

elsif  smnl . semantic_rank  <  smn2 . semantic_rank  then 
return  false; 

else 

return  smnl. id  <  smn2.id; 
end  if; 

end  sigMatchNodeLessThan; 


—  Procedure:  sigMatchNodeAssign 

procedure  sigMatchNodeAssign (smnl :  in  out  SigMatchNode; 

smn2:  in  SigMatchNode)  is 
begin 

smnl . signature_rank  : =  smn2 . signature_rank; 
smnl . semantic_rank  :=  smn2 . semantic_rank; 
smnl . validation  :=  smn2 .validation; 

smnl . expanded_for_inputs  :=  smn2.expanded_for_inputs; 
type_map_pkg. assign (smnl .V.TM,  smn2 . V.TM) ; 
op_map_pkg. assign (smnl . V.OM,  smn2 . V.OM) ; 

—  TODO:  might  have  to  do  the  deep  copy  myself  here 
rather  than  call  assign 

sig_match_node_ptr_seq_pkg. assign (smnl .branches,  smn2 .branches) ; 
end  sigMatchNodeAssign; 


—  Procedure:  sigMatchNodePut 

procedure  sigMatchNodePut (the_node :  in  SigMatchNode)  is 
begin 

put (” (Signature  Rank:  ”); 

if  the_node . signature_rank  =  candidate_types .RANK_UNKNOWN  then 
put ("unknown”) / 
else 

ada. float_text_io.put (the_node. signature_rank,  1,  2,  0); 
end  if; 
put("  I  "); 

put (" (Semantic  Rank:  "); 

if  the_node . semantic_rank  =  candidate_types .RANK_UNKNOWN  then 
put ( "unknown" ) ; 
else 

ada . float_text_io .put ( the_node . semantic_rank,  1,  2,  0); 
end  if; 
put("  1  "); 
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case  the_node . validation  is 

when  UNKNOWN  =>  put ( "Validation  Unknown"); 
when  VALID  =>  put { "Valid" ) ; 
when  INVALID  =>  put { "Invalid" ) ; 
end  case; 
put("  I  "); 

if  the_node .expanded_for_inputs  then 
put ( "Expanded" ) ; 
else 

put ("Not  Expanded"); 
end  if; 
put("  I  "); 
put ("Op  Map:  "); 
opMapPut ( the_node . V . OM)  ; 
put("  I  "); 
put ("Type  Map:  "); 
typeMapPut ( the_node . V . TM)  ; 
put("  I  "); 
put (" {Branches  :  ”); 

sigMatchNodePtrSeqPut (the_node -branches) ; 

put("}") ; 

put(")"); 

new_line; 

end  sigMatchNodePut; 


—  Procedure:  sigMatchNodePrint 

procedure  sigMatchNodePrint (the_node :  SigMatchNode)  is 
begin 

put("  Signature  Rank:  "); 

if  the_node . signature_rank  =  candidate_types . RANK_UNKNOWN  then 
put ( "unknown" ) ; 
else 

ada . float_text_io.put ( the_node . signature_rank,  1,  2,  0); 
end  if; 
new_line; 

put("  Semantic  Rank:  "); 

if  the_node . semantic_rank  =  candidate_types . RANK_UNKNOWN  then 
put ( "unknown" ) ; 
else 

ada . float_text_io.put (the_node . semantic_rank,  1,  2,  0); 
end  if; 
new_line; 
put ( "  " ) ; 

case  the_node . validation  is 

when  UNKNOWN  =>  put ( "Validation  Unknown"); 
when  VALID  =>  put ( "Valid" ) ; 
when  INVALID  =>  put ( "Invalid" ) ; 
end  case; 
put(",  "); 

if  the_node . expanded_for_inputs  then 
put_line ( "Expanded" ) ; 
else 

put_line ( "Not  Expanded"); 
end  if; 

put { "  Op  Map :  " ) ; 

OpMapPut ( the_node . V . OM) ; 
new_line; 

put ( "  Type  Map :  ”); 

typeMapPut (the_node.V.TM) ; 
new_line; 

put("  Branches:  "); 

SigMatchNodePtrSeqPut (the_node .branches) ; 
new_line; 

end  SigMatchNodePrint; 


—  Function:  createSigMatchNode 

--  Description:  create  and  initialize  a  SigMatchNode  for  use. 

Note,  a  unique  node  id  is  maintained  to  facilitate 
sorting  when  two  nodes  have  equal  signature  and 
semantic  ranks. 
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unique_node_id:  natural  :=  0; 

function  createSigMatchNode  return  SigMatchNode  is 
return_val:  SigMatchNode; 
begin 

return__val  .id  :=  unique_node_id; 
unique_node_id  :=  unique_node_id  +  1; 

return_val .signature_rank  :=  candidate_types . RANK_UNKNOWN; 
return_val . semantic_rank  :=  Candida te_t ype s .RANK_UNKNOWN; 
return_val .validation  :=  UNKNOWN; 
return_val . expanded_for_inputs  :=  false; 
return_val,V  :=  createSignatureMap; 

return_val .branches  sig_match_node_ptr_seq_pkg. empty; 
return  return_val; 
end  createSigMatchNode; 


““  Function:  addBranch 

—  Description:  add  a  branch  {a  child  SigMatchNode)  to  the  SigMatchNode. 

A  branch  represents  a  superset  of  the  node  it  belongs  to. 
What  this  really  means  is  the  branch  node  contains  all  the 
type  and  operator  mappings  plus  of  the  node  it  belongs  to 
plus  more. 

procedure  addBranch (the_branch:  in  SigMatchNodePtr ; 
the_node :  in  out  SigMatchNode)  is 

begin 

sig_match_node_ptr__seq_pkg .  add  ( the_branch,  the_node  .  branches )  ; 
end  addBranch; 


—  Function:  removeBranch 

—  Description: 

procedure  removeBranch (the_branch:  in  SigMatchNodePtr; 
the_node:  in  out  SigMatchNode)  is 

begin 

sigMatchNodePtrSeqRemove ( the_branch,  the_node . branches ) ; 
end  removeBranch; 


—  Function:  removeAllMatchingBranches 

—  Description: 

procedure  removeAllMatchingBranches (the_branch:  in  SigMatchNodePtr; 
the_node:  in  out  SigMatchNode)  is 

begin 

SigMatchNodePtrSeqRemove {the_branch,  the_node .branches) ; 
foreach{  (branch:  SigMatchNodePtr),  sig_match_node__ptr_seq__pkg.  scan, 
( the_node . branches ) , 

removeAllMatchingBranches (the_branch,  branch . all) ; 

) 

end  removeAllMatchingBranches; 


—  Procedure:  generateGML 

—  Description:  generate  a  GML  file  to  graphically  represent  the 

SigMatchNode ' s  relationship  with  its  branches. 

procedure  generateGML (the_node :  in  SigMatchNode;  filename:  string)  is 
id:  natural  :=  0;  —  unique  ID  counter 

the_id:  natural;  —  place  holder  for  call  to  put_node_gml 
gml_file:  file_type; 

function  new_id  return  natural  is 
begin 

id  :=  id  +  1; 
return  id; 
end  new_id; 
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procedure  put_node_gml (sn:  in  SigMatchNode;  my_id:  out  natural)  is 
child_id:  natural; 
begin 

my_id  new_id; 

put (gml_file,  "node  [  id  "); 

put {gml_file,  integer ' image (my_id) ) ; 

put {gml_file,  "  label 

opMapFilePut (gml_file,  sn.V.OM); 

put_line (gml_file, 

typeMapFilePut (gml_file,  sn.V.TM); 

put_line {gml_file,  "\"); 

case  sn. validation  is 

when  UNKNOWN  put  {gml_file,  "Validation  Unknown"); 
when  VALID  =>  put (gml_file,  "Valid"); 
when  INVALID  =>  put (gml_file,  "Invalid"); 
end  case; 

put_line  (ginl_file,  "\"); 
if  sn. expanded_for_inputs  then 
put {gml_file,  "Expanded"); 
else 

put (gml_file,  "Not  Expanded"); 
end  if; 

put_line {gml_file,  """  ]"); 

—  recursively  call  put_node_gml  for  each  of  its  branches 
foreach{ {branch:  SigMatchNodePtr ) ,  sig_match_node_ptr_seq_pkg. scan, 
(sn. branches) , 

put_node_gml (branch. all,  child_id) ; 

—  make  the  edge  to  the  branch 

put (gml_file,  "edge  [  id  "); 

put (gml_file,  integer ' image (new_id) ) ; 

put (gml_file,  "  source  "); 

put (gml_file,  integer ' image (my_id) ) ; 

put (gml_file,  "  target  "); 

put (gml_file,  integer ' image (child_id) ); 

put__line  (gml_file,  "  ]"); 

) 

end  put_node_gml; 
begin 

create (gml_file,  out_file,  filename); 
put (gml_file,  "graph  [  id  "); 
put (gml_file,  integer ' image (new_id) ) ; 
put_line (gml_file,  "  directed  1"); 
put_node_gml (the_node,  the_id) ; 
put_line (gml_file,  "] ") ; 
close (gml_file) ; 
end  generateGML; 


—  Function:  getLeafNodePtrs 

—  Description:  collect  the  leaf  nodes  of  the_node  into  a  sequence. 

function  getLeafNodePtrs (the_node :  in  SigMatchNode) 
return  SigMatchNodePtrSeq  is 
return_val:  SigMatchNodePtrSeq; 

procedure  processNode (smnp:  in  SigMatchNodePtr )  is 
begin 

if  sig  match  node  ptrseqpkg. length (smnp. branches)  =  0  then 
sig_match_node_ptr_seq_pkg. add (smnp,  return_val) ; 
return; 
end  if; 

foreach( (branch:  SigMatchNodePtr) ,  sig__match_node_ptr_seq_pkg. scan, 
(smnp. branches) , 
processNode (branch) ; 

) 

end  processNode; 
begin 

return_val  :=  sig_match_node_ptr_seq_pkg. empty; 

foreach( (branch:  SigMatchNodePtr),  sig_match_node_ptr_seq_pkg. scan, 
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(the_nocie  .branches)  , 
processNode (branch)  ; 

) 

return  return_val; 
end  getLeafNodePtrs; 


—  Function:  getLeafNodePtrs 

—  Description:  collect  the  leaf  nodes  of  the_node  into  a  set. 

Note  the  set  will  keep  duplicates  out. 

function  getLeafNodePtrs (the_node :  in  SigMatchNode) 
return  SigMatchNodePtrSet  is 
return_val:  SigMatchNodePtrSet; 

procedure  processNode (smnp:  in  SigMatchNodePtr )  is 
begin 

if  sig_match_node_ptr_seq_pkg. length (smnp .branches)  =  0  then 
sig_match_node_ptr_set_pkg. add (smnp,  return_val) ; 
return; 
end  if; 

foreach( (branch:  SigMatchNodePtr) ,  sig_match_node_ptr_seq_pkg, scan, 
( smnp . branches ) , 
processNode (branch) ; 

) 

end  processNode; 
begin 

return__val  :=  s ig_match_node_ptr_set_p kg. empty ; 

foreach ( (branch:  SigMatchNodePtr) ,  sig_match_node_ptr_seq_pkg . scan, 
{the__node.branches) , 
processNode (branch) ; 

) 

return  return_val; 
end  getLeafNodePtrs; 


—  Function:  getValidLeafNodePtrs 

—  Description:  collect  the  valid  leaf  nodes  of  the_node  into  a  set. 

Note  the  set  will  keep  duplicates  out. 

function  getValidLeafNodePtrs (the_node :  in  SigMatchNode) 
return  SigMatchNodePtrSet  is 
return_val:  SigMatchNodePtrSet; 

procedure  processNode (smnp :  in  SigMatchNodePtr)  is 
begin 

if  sig_match_node_ptr_seq_pkg . length (smnp .branches)  =  0  then 
if  smnp .validation  =  VALID  then 

sig_match_node_ptr_set_pkg. add (smnp,  return_val) ; 
end  if; 
return; 
end  if; 

foreach ( (branch:  SigMatchNodePtr) ,  sig_match_node_ptr_seq_pkg. scan, 
( smnp . br anche  s ) , 
processNode (branch) ; 

) 

end  processNode; 
begin 

return_val  : =  sig_match_node_ptr_set_pkg . empty; 

foreach ( (branch:  SigMatchNodePtr) ,  sig_match_node_ptr_seq_pkg. scan, 
(the_node .branches) , 
processNode (branch) ; 

) 

return  return_val; 
end  getValidLeafNodePtrs; 


—  Function:  validPairingExists 

—  Description:  gets  all  the  valid  leaf  nodes  and  checks  if  the  pairing 
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exists  in  any  of  them 


function  validPairingExists (pairing:  in  OpMap;  the_node :  in  SigMatchNode) 
return  boolean  is 
return__val:  boolean; 
begin 

return_val  :=  false; 

foreach((sn:  SigMatchNodePtr) ,  sig_match_node_ptr_set_pkg . scan, 
(getValidLeafNodePtrs {the_node) ) , 
if  not  return_val  then 

return_val  :=  op_map_pkg . submap (pairing,  sn.V.OM); 

—  TODO:  if  return_val  is  true  then  should  immediately  return 
but  for  each  doesn't  let  me  do  this 

end  if; 

) 

return  return_val; 
end  validPairingExists; 


—  Procedure:  sigMatchNodePtrSetPrint 

procedure  sigMatchNodePtrSetPrint (the_set :  sigMatchNodePtrSet)  is 
begin 

foreach( (the_node:  SigMatchNodePtr),  sig_match_node_ptr_set_pkg . scan, 
(the_set) , 

sigMatchNodePrint (the_node . all) ; 
put_line ("%%End_Signature%%")  ; 

,) 

put_line  (’'%%End_Component%%")  ; 
end  SigMatchNodePtrSetPrint; 

end  sig_match_types; 

S.  SOFTWARE_BASE.ADS 


—  Package  Spec:  software_base 


with  gnat.io; 

with  component_id_types;  use  component__id_types; 
with  haase_diagram;  use  haase_diagram; 
with  candidate_types;  use  candidate_types; 
with  profile_types;  use  profile_types; 

with  a_strings; 

package  software_base  is 

procedure  initialize (sb^root :  in  string;  header_filename :  in  string); 
procedure  reinitialize (sb_root :  in  string); 

function  numComponents  return  natural; 

function  numPartitions  return  natural; 

function  numOccupiedPartitions  return  natural; 

procedure  generateGML (gml_filename :  in  string); 

procedure  getCandidateFilename (component_id:  in  integer;  filename:  out  string; 
filename_length:  out  integer); 

function  profileFilter (query_filename :  in  string)  return  CandidateSet; 

function  signatureMatch (query_filename :  in  string; 
the_candidate :  in  Candidate; 
srank:  in  float)  return  Candidate; 

function  getProfilelD (p:  Profile)  return  ProfilelD; 

function  getProfile  (p__id:  ProfilelD)  return  Profile; 
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function  getProfilelDs  return  profile_lookup_table_pkg. res_set; 
private 

--  the_component_id_map 
the_component_id_map :  Component I DMap; 

—  the_haase_diagram 
the_haase_diagram:  HaaseDiagram; 

—  the_profile_lookup_table 
the_profile_lookup_table :  ProfileLookupTable; 

end  software_base; 

T.  SOFTWARE_BASE.G 


—  Package  Body:  software_base 


with  text__io;  use  text_io; 

with  ada . integer_text_io;  — use  ada . integer_text_io; 
with  lookahead_pkg; 
with  sb_utils; 

with  a_strings; 

with  psdl_concrete_type_pkg;  use  psdl_concrete_type_pkg; 

with  compOnent_id_types;  use  component_id_types; 
with  haase_diagram;  use  haase_diagram; 
with  candidate_types;  use  candidate_types; 
with  profile_types;  use  profile_types; 
with  psdl_profile;  use  psdl_profile; 
with  sig_match_types;  use  sig_match_types; 
with  profile_filter_pkg; 
with  sig_match; 

package  body  software_base  is 


—  Procedure:  initialize 

—  Description:  reads  the  header  file  to  construct  the_component_id_map 

and  the_haase_diagram. 

procedure  initialize (sb_root :  in  string;  header_filename :  in  string)  is 
use  a_strings; 

header_file:  file_type; 
comp_id:  ComponentID; 
dir_name:  a_string; 
sbfile_name:  a_string; 
input_line:  string ( 1 .. 256) ; 
line_length:  natural; 
comp_id_last  :  natural; 
temp_comp_profile :  ComponentProfile; 
temp_haase_node :  HaaseNode; 
temp_component :  Component ; 
the_generics_maps :  GenericsMapSet ; 
generics_mapping:  GenericsMap; 
n_components :  integer  :-  0; 
message:  a_string; 

id:  natural  :=  0; 
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old_start:  natural  :=  0; 

function  new^id (start :  natural)  return  natural  is 
begin 

if  start  /=  old_start  then 
id  :=  0; 

old_start  :=  start; 
end  if; 
id  :=  id  +  1; 
return  start  +  id; 
end  new_id; 

begin 

—  parse  header  file  and  construct  the_component_id_map 

component^! d_inap_p kg .  create  (createComponent,  the_component_id__map) ; 

open (header_file,  in_file,  header_f ilename) ; 
while  (not  end_of_file (header_file) )  loop 
n_components : -  n_components+l ; 
get_line (header_file,  input_line,  line_length); 
ada,  integer_text__io.get  (input_line,  comp__id,  comp_id_last) ; 

—  trim  spaces  before  and  after  directory  name 
dir_name  :=  reverse_order ( trim( 

reverse_order (trim(a_strings . to_a ( 
input_line (comp_id_last+l . . line_length) )}))); 

—  create  a  component  for  each  generic_mapping 

the_generics_maps  :=  getGenericsMaps (convert (text (dir_name  &  ”/PSDL_SPEC" ) ) ) ; 
message  to_a("  Preparing  ")  &  input_line (1 . . line_length) ; 
message  message  &  "  ... 

message  :=  message  &  integer ' image (generics_map_set_pkg . size (the_generics_maps) ) ; 
message  :=  message  &  "  components...”; 

sb_utils . Display_Message (message . s ) ; 
foreach ( ( the_map:  GenericsMap) ,  generics_map_set_pkg. scan, 

(the_generics_maps) , 
temp^component  createComponent; 

temp_component .psdl_filename  ;=  text (dir_name  &  ”/PSDL_SPEC" ) ; 
generics_map_pkg. assign (temp_component . generics_mapping,  the_map) ; 
component_id_map_pkg . bind (new_id (comp_id) ,  temp_component , 
the_component_id__map)  ; 

) 

sb_utils . Display_Message_line ( "done”) ; 
end  loop; 

close (header  file); 


—  Create  the  ProfileLookupTable 

the_profile_lookup_table  := 

profile_lookup_table_pkg. create (DEFAULT_PROFILE_ID) ; 


—  construct  haase  diagram 
the_haase_diagram  :=  createHaaseDiagram; 

—  for  each  item  in  the_component_id__map,  get  the  component’s 

—  profile  and  add  it  to  the_haase_diagram 

foreach ( (the_comp_id:  ComponentID;  the_component :  Component), 
component_id_map_pkg . scan,  ( the_component_id_map) , 

message  :=  to_a("  inserting  ")  &  integer ’ image (the_comp_id) ; 

sb_utils . Display_Message_line (message . s) ; 

temp_comp_profile  getComponentProf ile ( 

convert (the_component .psdl_filename) ,  the_component . generics_mapping) ; 

—  check  if  haase  node  with  temp_comp_profile  as  its  key 
already  exists.  If  it  does  then  add  the  component  id 

—  to  that  node  rather  than  make  a  new  node. 

if  haase_node_map_p kg. member (temp_comp__prof ile,  the_haase_diagram)  then 
temp_haase_node  haase_node_map_pkg, fetch (the_haase_diagram, 
temp_comp_profile) ; 


else 
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temp_haase_node  :=  createHaaseNode ( temp_comp_profile) ; 
end  if;  ” 

addComponent (the_comp_id,  temp_haase_node) ; 
addHaaseNode (temp_haase_node;  the_haase_diagram) ; 


sb_utils .Display_Message ("  adding  base  nodes,.."); 
addBaseNodes  (the_haase__diagram)  ; 
sb_utils . Display_Message_line ("done") ; 
sb__utils  .Display_Message  ("  connecting  nodes..."); 
connectNodes ( the_haase_diagram) ; 
sb_utils,Display_Message__line  ("done")  ; 

sb_utils . Display_Message_line ( "  Saving  the  software  base  search  data"); 

sb_utils  .Display__Message  {"  the_component_id_map .  .  .  ")  ; 

sbfile_name  :=  a_strings  .  to_a  (sb_root)  &  "coniponent_id_map.dat"; 

create (header_file,  out_file,  sbfile_name . s ) ; 

set_output  (header_file) ; 

componentIDMapPut ( the_component_id_map) ; 

set_output  (standard_output) ; 

close {header_file) ; 

sb_utils  .  Display_Message__line  ( "done" )  ; 

sb_utils . Display_Message ( "  the_profile_lookup_table . . .") ; 

sbfile_name  :=  a_strings . to_a (sb_root)  &  "profile_lookup_table.dat"; 
create (header_file,  out_file,  sbfile_name . s) ; 

profileLookupTableFilePut (header_file,  the_profile_lookup_table) ; 
close {header_file) ; 

sb_utils .Display_Message_line ("done") ; 

sb_utils . Display_Message ( "  the_haase_diagram. . . " ) ; 

sbfile_naine  :=  a_strings  .  to_a  (sb_root )  &  "haase_diagram.dat"; 

create (header_file,  out_file,  sbfile_name . s) ; 

set_output  (header_file) ; 

haaseDiagramPut (the_haase_diagram) ; 

set_output  (standard_output) ; 

close (header_file) ; 

sb_utils . Display_Message_line ("done") ; 
end  initialize; 


procedure  reinitialize (sb_root :  in  string)  is 
use  a_strings; 

header_file:  file_type; 
comp_id:  ComponentID; 
dir_name:  a_string; 
sbfile_name :  a_string; 
input_line:  string (1 .. 256) ; 
line_length:  natural; 
coinp_id_last  :  natural; 
temp_comp_profile :  ComponentProfile; 
temp_haase_node :  HaaseNode; 
temp_component :  Component; 
the_generics_maps :  GenericsMapSet; 
generics_mapping;  GenericsMap; 
n_components :  integer  :=  0; 
key__id,  res_id:  psdl_id; 

id:  natural  0; 
old_start:  natural  :=  0; 
begin 


—  parse  header  file  and  construct  the_component_id_map 

component_id_map_pkg. create (createComponent,  the_component_id_map) ; 

sb_utils . Display_Message ( "  Retreving  the_component_id_map ..."); 
sbfile_name  ;=  a_strings . to_a (sb_root)  &  "component_id_map , dat"; 
open (header_file,  in_file,  sbfile_name . s) ; 
set_input (header_file) ; 
while  (not  end_of_file (header_file) ) 
loop 

temp_component  :=  createComponent; 
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sb_utils . get_char_line (input_line,  line_length) ; 

ada . integer_text_io . get ( input_line ,  comp_id,  comp_id_last ) ; 

sb_utils  . get_char_line (input_line,  line_length) ; 

temp_component.psdl_filename  :=  convert (input_line (1. . line_length) ) ; 
if  lookahead_pkg. token  /=  then 

lookahead_pkg. skip_char; 

generics_map_pkg .  recycle  (temp_component .  generics_itiapping)  ; 
else 

genericsMapGet  {tenip_component  .generics_mapping) ; 
end  if; 

component_id_map_pkg.bind (comp_id,  temp_component,  the_component_id_map) 
end  loop; 

set_input {standard_input) ; 
close (header^file) ; 

sb_utils . Display_Message_line { "done") ; 

—  Create  the  ProfileLookupTable 

the_profile_lookup_table  := 

prof ile_lookup_table_pkg. create (DEFAULT_PROFILE_ID) ; 

sb_utils . Display_Message ( "  Retreving  the_prof ile_lookup__table 
sbfile_name  a_s t rings .to_a {sb_root)  &  "profile_lookup_table.dat"; 

open (header_file,  in_file,  sbfile_name . s ) ; 
set_input  {header_file) ; 

profileLookupTableGet  {the__profile_lookup_table)  ; 
set_input  (standard_input) ; 
close (header_file) ; 

sb_utils . Display_Message_line ("done") ; 


—  construct  haase  diagram 

the_haase_diagram  :=  createHaaseDiagram; 

sb_utils .Display_Message ("  Retreving  the_haase_diagram. . . ") ; 
sbfile_name  :=  a_strings , to_a (sb_root )  &  "haase_diagram.dat"; 
open  (header_file,  in__file,  sbfile_name  .  s)  ; 
set_input  (header_file) ; 
haaseDiagramGet (the_haase_diagram) ; 
set_input  (standard__input)  ; 
close (header_file) ; 

sb_utils .Display_Message_line ("done")  ; 
end  reinitialize; 


—  Function:  numComponents 

—  Description:  return  the  number  of  components  in  the  software  base. 

function  numComponents  return  natural  is 
return_val:  natural; 
begin 

return  component_id_map_pkg. size (the_component_id_map) ; 
end  numComponents; 


—  Function: '  numPartitions 

—  Description:  return  the  number  of  partitions  in  the  software  base. 

function  numPartitions  return  natural  is 
begin 

return  haase_node_map_pkg. size (the_haase_diagram)  ; 
end  numPartitions; 


—  Function:  numOccupiedPartitions 

—  Description:  return  the  number  of  occupied  partitions  in  the 

software  base. 
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function  numOccupiedPartitions  return  natural  is 
return_val:  natural  :=  0; 
begin 

foreach ( (the_key:  ComponentProfile;  the_hn:  HaaseNode) , 
haase_node_map_pkg.scan,  ( the_haase_diagram) , 
if  component_id_set__pkg .  size  ( the_hn .  components )  >  0  then 
return_val  :=  return_val  +  1; 
end  if; 

) 

return  return_val; 
end  numOccupiedPartitions; 


—  Function:  generateGML 

procedure  generateGML (gml_filename :  string)  is 
begin 

generateGML  (the_haase_diagram,  gml__filename)  ; 
end  generateGML; 


—  Function:  profileFilter 

—  Description:  performs  profile  filtering  with  the  PSDL  specified  query 

and  returns  an  ordered  set  of  candidates  with  the  highest 
profile  ranking  first. 

Note  the  PSDL  query  must  NOT  contain  generics. 

function  profileFilter (query_filename :  in  string)  return  CandidateSet  is 
query_profile :  ComponentProfile; 
begin 

query_profile  :=  getComponentProfile (query_f ilename, 
gene rics_map_pkg. create (empty) ) ; 

return  profile_filter_pkg . findCandidates {query_profile,  the_haase_diagram) ; 
end  profileFilter; 


—  Function:  signatureMatch 

—  Description:  performs  signature  matching  between  the  PSDL  specified 

query  and  the_candidate  and  returns  a  copy  of  the_candidate 
with  the  signature_matches  field  set. 

function  signatureMatch (query_f ilename :  in  string; 
the_candidate :  in  Candidate; 
srank:  in  float)  return  Candidate  is 
q_ops,  c_ops:  OpWithProfileSeq; 
sn:  SigMatchNode; 
temp_snp_set :  SigMatchNodePtrSet; 
temp_component :  Component ; 
return_val:  Candidate; 
begin 

““  get  the  query's  operators 

q_ops  :=  getOpsWithProfiles {query_f ilename,  generics_map_pkg . create (empty) ) ; 

—  get  the  candidate's  operators 

temp_component  : =  component_id_map_pkg . fetch ( the_component_id_map, 
the_candidate.component_id) ; 

c_ops  :=  getOpsWithProfiles (convert (temp_component .psdl_filename) , 
temp_component . generics_mapping) ; 

—  perform  signature  matching 
sn  :=  createSigMatchNode; 
sig_match. sigMatchStatsReset; 
sig_match .match_ops {q_ops,  c_ops,  sn) ; 

—  calculate  the  signature  ranks 

sig_match_node_ptr_set_pkg. assign (temp_snp_set,  getLeafNodePtrs (sn) ) ; 
foreach( (smnp:  SigMatchNodePtr) ,  sig_match_node_ptr_set_pkg. scan, 

( temp_snp_set) , 

smnp. signature_rank  :=  float (op_map_pkg. size (smnp .V. OM) )  / 
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float (owp_sequence_p kg. length {q_ops ) ) ; 

—  The  following  calculation  for  signature  rank  measures  how  well  the 

—  signature  matching  method  works  on  its  own.  The  calculation  above 
--  is  really  a  mixture  of  profile  filtering  AND  signature  matching. 

smnp.signature_rank  :=  float (op_map_pkg. size (smnp.V.OM) )  / 

( teturn_val . profile__rank  *  float (owp_sequence_pkg.length{q_ops))); 


) 


—  add  each  SigMatchNodePtr  to  make  sure  return_val's  signature_matches 

—  field  is  sorted 

candidateAssign {return_val,  the_candidate) ; 

f or each ( (smnp:  SigMatchNodePtr) ,  sig_match_node_ptr_set_pkg . scan, 

{temp__snp_set) , 

if  smnp . signature_rank  >  srank  then 

sig_match_node_ptr_set_pkg. add (smnp,  return_val . signature_matches ) ; 
end  if; 

) 

return  return_val; 
end  signatureMatch; 


—  Function:  getProfilelD 

—  Description:  if  the  profile  doesn't  exist  then  add  it  first  then 

return  its  id.  A  new  id  is  obtained  from  the  global 
variable  unique_profile_id. 

unique_profile_id:  ProfilelD  0; 

function  getProfilelD (p:  Profile)  return  ProfilelD  is 
return_val:  ProfilelD; 
begin 

return_val  := 

prof ile_lookup_table_pkg. fetch (the_profile_lookup_table,  p) ; 
if  return_val  =  DEFAULT_PROFILE_ID  then 
return_val  :=  unique_profile_id; 
unique__profile_id  :=  unique_profile__id  +1; 

prof ile_lookup_table_pkg. bind (p,  return_val,  the__profile_lookup_table) ; 
end  if; 

return  return_val; 
end  getProfilelD; 


—  Function:  getProfile 

function  getProfile (p_id:  ProfilelD)  return  Profile  is 
return_val:  Profile; 
begin 

return_val  0; 

foreach((p:  Profile;  id:  ProfilelD),  prof ile_lookup__table_pkg. scan, 
(the_profile_lookup_table) , 
if  id  =  p_id  then 
return_val  ;=  p; 

— ,  TODO:  should  return  here  but  for  each  doesn't  let  me 
end  if; 

) 

return  return_val; 
end  getProfile; 


—  Function:  getProfilelDs 

function  getProfilelDs  return  profile_lookup_table_pkg. res_set  is 
begin 

return  prof ile_lookup_table_pkg . map_range ( the_prof ile_lookup_table ) ; 
end  getProfilelDs; 


—  Procedure  to  return  the  file  name  of  the  candidate  psdl  component 
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procedure  getCandidateFilename (component_id:  in  integer; 

filename:  out  string; 
filename_length :  out  integer)  is 
temp_component :  Component ; 

begin 

temp_component  :=  component_i d_map_p kg . fetch (the_component_id_map,  component_id) ; 
filename_length  :=  temp_component.psdl_filename.len;  ” 

for  i  in  1 . . filename_length  loop 

filename (i)  :=  temp_component .psdl_filename . s (i) ; 
end  loop; 

end  getCandidateFilename; 
end  software  base; 
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